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from New York to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic vie 
as you practice takeoff a, landings, and aerobatics. Complete documentation will get you airborne quickly 
even if youVo never flown before. When you think you Ye ready, you can play the World War I Ace aerial battle 
game. Flight Simulator II features Include ■ animated color 30 graphics ■ day, dusk, and night f tying mode 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery \ 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight i 
instrumentation ■ VOR, ILS, ADR and DME radio equipped m navigation facilities and course plotting "World \ 
War I Ace aerial battle game ■ complete Information manual and flight handbook. \ 
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am am M ■■ ore Programs than Ever Before?" 
^B ^V I KM ft Haven't we used that 

ready? Yes -on our March '85 
cover. That issue contained 8 
programs, which at the time was 
more than ever before. This issue contains 14. Weil-that's not 
entirely true. Our Rupert Report, Creating Your Own Games, 
and Commodore Roots columns include two programs each; 
so you could say 17. And if you count Flankspeed and Bug 
Repellent... 

But let's not set the total too high. We don't want to make 
it impossible to top the next time we want to use the same 
cover blurb— which may be soon, as we add pages to your 
favorite Commodore magazine. (In feet, see next month's View 
from the Bridge for an announcement concerning an eight-page 
monthly addition to Ahoy!, covering the one major area of 
Commodore home computing that we've purposely neglected. . . 
until now! 

In the meantime, our burst! ng-at-the- seams editorial policy 
makes it necessary to abridge our usual banter in order to de- 
scribe the contents of this issue: 

• Morton Kevelson continues his 128 opus with a detailed 
explanation of the new computer's keyboard and its 1571 disk 
drive. (Turn to page 47.) 

• Orson Scott Card takes Creating Your Own Games into 
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a territory you've long anticipated— sprites— and provides Pig 
in a Poke, a complete game for children. (Turn to page 18.) 

• Dale Rupert continues his series of Rupert Reports on real- 
world simulations with this month's Tumbling Dice and Data 
Structures. (1\irn to page 57.) 

• Old timers as well as new will find useful information 
on disk maintenance and buying software in this month's edition 
of Cheryl Peterson's Cadet's Column. (Turn to page 81.) 

• Mark Andrews concludes his two-part article on assem- 
bly language addressing in this month's Commodore Roots. 
(Turn to page 77.) 

• Fastnew will cut disk formatting time from 90 seconds 
to 20— and, more important, will prevent your 1541s read -write 
head from banging during the operation. (Turn to page 33.) 

• Ahoy! Dock will let you organize your collection of Ahoy! 
and other computer magazines for easy access to any article 
by category. (Turn to page 30.) 

• Start & End File Address will generate the load and end 
addresses of any program. (Tbrn to page 17.) 

• Go-Lister produces a printout of all BASIC program lines 
called by GOTO, GOSUB, THEN, and ON statements. (Turn 
to page 73.) 

• Dragon Type is the latest programming pearl from Ahoy! 
ace Bob Spirko— this one, an entertaining typing tutor. (Turn 
to page 61.) 

• Superhero generates a variety of mazes that you must ne- 
gotiate in order to protect the world from falling meteors. (Turn 
to page 17.) 

• You may find yourself hurling some Invective of your own 
as our game of the same name turns the tables on you every 
15 seconds, scrambling the position of the joystick. (Turn to 
page 15.) 

• Fish Math offers multiplication practice for young chil- 
dren, arcade action for adults, and, best of all, a reason not 
to convert your VIC 20 to scrap metal yet! {Turn to page 29.) 

• Auto-Gen reads machine language routines from memory 
and turns them into data statements. (Turn to page 59.) 

• Moxey's Porch requires speed and dexterity to zig-zag 
around a freshly painted porch. (Turn to page 73.) 

• File Lock enables you to scratchproof any program file. 
(Turn to page 62.) 

Of course, you'll find Commodares at their frustrating best 
(turn to page 55); a new collection of reader-generated com- 
puter graphics in our Art Gallery (turn to page 34); reviews 
of products like On-Field Football, Blazing Paddles, and the 
Computereycs video acquisition system (turn to page 63); and 
Scuttlebutt, featuring all the Commodore-related news from 
the Summer '85 Consumer Electronics Show (turn to page 7), 
We remind you that our soon-to-debut programming tips col- 
umn is awaiting your submissions (see page 46); our bulletin 
board system is ready to take your calls 24 hours a day (see 
page 114); and our programs, in this issue and every issue, 
are available on disk or cassette (see page 23). 

It was our aim in producing this issue (as with every issue) 
to provide enough material to keep you stimulated, challenged, 
and occupied until next month. Even better, well into next 
month. We won't rest until we've got you hopelessly backed 
up on your reading. -David AUikas 



4 AHOY! 



Rondir Service Mo. 151 



IEDI1 




IMAGE 

A Viewpoint by John C. Dvorak 



Is the success of Commodore a fed? A fluke? A freak of 
nature? We'll all know in the next year or so. Whatever 
the case, it's quite likely that Commodore will have to 
fight an uphill battle to make a long-term success of the 
nifty Amiga Lorraine computer. 
Commodore has created the image of a company that makes 
a cheap disposable computer. When articles are written about 
home computers sent to the closet to die, what computer do 
they talk about? There is always a picture of a Commodore 
64 or VIC 20 languishing amongst the old ski boots. Hey, it 
isn't bad — it's disposable. 

Image is everything in this business, as any IBM critic will 
tell you. The Commodore dilemma reminds me of two stories. 
The first goes back to the early days— the days of the SOL-20 
computer. The SOL was released in 1977 and quickly found 
a following of users, many of whom attached a little Northstar 
floppy disk drive to the machine. A perfect combination, it 
was a compact system with the first commercial 5 X A -inch disk 
drive. It was provided with a terrific BASIC and a nifty oper- 
ating system. Above all it was simple and fairly inexpensive. 
Processor technology, the company that made the SOL, 
wanted to do its own disk drive, so it spent a little over a year 
to come up with an expensive 8-inch hard sectored clunker 
called the Helios. This fiasco was probably as responsible as 
anything for grounding the whole Proc Tech business. The key 
to the whole blunder of the Helios is that if the company had 
seen what its customers wanted (cheap 5 \A -inch disk systems) 
instead of what it thought it wanted (overpriced 8-inch clunkers) 
it would be in business today. 

To Commodore marketeers this anecdote questions the like- 
lihood of success if Commodore changes from a company that 
makes disposable computers to a company that makes hi-grade 
machines. Let's assume it can do it. There's still the image 
problem. 

Anecdote #2. I once attended a focus group that showed a 
proposed Atari computer that was MS-DOS, CP/M, Apple, 
and Atari compatible. It would cost $1500. Nobody knew who 
the manufacturer was. The question was asked: "Would you 
buy this machine if it were an IBM?" It was one of those "highly 
likely, likely, unlikely, highly unlikely" type questions. Every- 
one said "highly likely." The same question was repeated, but 
this time the manufacturer was Apple. Again, the answer was 
"highly likely." The focus group jumped to Atari and the an- 
swer became "highly unlikely." The group saw the Atari as a 
game computer. This was a semi-serious machine— not an Atari. 
Commodore was never even suggested at this group. Where 
would it stand? I shudder to think. Undoubtedly, it would be 
rated in the highly unlikely category. This will remain the case 
unless Commodore changes its image. 

It must begin to improve its image now. Commodore isn't 
the first thing that comes to your mind when you think of the 
word "innovation." That lack is the first thing that has to go 



if the company is to survive. Words like "experimental," "in- 
sightful," "advanced," or escn "well-made" do not bring to mind 
Commodore, either. What about words like "cheap compu- 
ter" and "good deal'".' Right! Commodore. 

The Amiga will never be a truly "cheap computer" in the 
near term. It might be a relative good deal, but that's not what 
will sell the next generation of machines. Most users can get 
everything from a "good deal" to "trustworthy" and "reliable" 
from IBM. Innovative" is the key word necessary tor success. 

Few companies have the wherewithal or opportunity to offer 
the public an advanced machine like the Amiga. Hopefully, 
the company will concentrate it.s marketing effort towards 
changing the public perception of Commodore. Hopefully it 
will create the right new image. 

We sure don't want to see the Amiga in the closet with the 
ski boots, do we? □ 

Mr. Ehvrak is (he fanner editor o/Inf'oWorld magazine and 
writer of Inside Track, InfoWorldi industry news column. 
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In PA; 1-717-322-7700 
1-800-351-3442 



P.O. BOX 4025, HOURS: Monday thru Friday 9:00 am till 6:00 pm 
WILLIAMSPORT, PA 1 7701 Accept 4% 



DISK DRIVES 
C-64 

1541 185.95 

1571 249.95 

1572 37595 

MSD Single ... 229.00 

MSD Dual 459.00 

Indus GT 239.00 

CardcoSCD-1... 199.00 

INTERFACES 

Tymac 

Con necti on/2 K . .62.95 

Cardco -G 59.95 

CardcoB 37.95 

OR D 

GPC w/2K 55,95 

Grappler CD 89.95 

PRINTER PAPER 
LazorlOOOshts... 15.95 
Lazor2500shts... 29.95 

DISKETTES Jf 
SKC 

SS/SD 10.50 

SS/DD 13.50 

DS/DD 15.50 

MAWELL 

MD-1 15.95 

MD-2. ... 21.95 

ELEPHANT 

SS/SD 13.50 

SS/DD 15.50 

DS/DD 19.50 

INNOVATIVE 
CONCEPTS 

Fiip-N-File 

10 3.50 

15 8.50 

25 18.50 

w/lock 

50 17.50 

50 23.50 

ROM Holder. . . 17.50 

KOALA 

Pad Disk... ,.39. 95 

Pad ROM 45.95 



COMPUTERS 
C-64 149.95 

C-128 ...275.95 
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C-64 

MPS 801 179.95 

802 208.95 

803 175.95 

MCS801 .314.95 

DPS 1101 .314.95 

CITIZEN 

MSP-10 325 

MSP-15. 479 

MSP-20 469 

MSP-25 629 

EPSON 

RX80 219 

LX80 249 

FX80 369 

JX80. . 529 

RX100 369 

FX100 550 



MANNSEMAN TALLY 

Spirit 80 249 

MT 160L 495 

MT 180L 595 

STAR MICRONICS 

SG10 214 

SG15 379 

SD10 345 

SD15 450 

SR10 , 485 

SR15 585 

Powertype 309 



CARDCO 

LQ 1 

*LQ3. 



...365 

209 



C. ITOH 

8510 A.... 
8510 BC1. 
8510 BC2. 
8510 BP1 



.285 
.329 
.389 
.339 



8510SP 389 

8510SR 429 

8510SCP 459 

8510 SCR 477 

1550 BCD ., 485 

1550 P.... 445 

A10-20P 465 

F10-40P/S.... 875 

F10-55 P/S 1059 

F10 Tractor 169 

F10 Sheet Feeder 349 



PANASONIC 

1090 187 

1091 237 

1092 389 

1093 585 

3151 ..455 

LEGEND 

880 209 

1080 229 

1380 269 

1385 305 

OK I DATA 

182 219,95 

84 640.95 

92 349.95 

93 560.95 

Imagewriter 425.95 



MONITORS 
AMDEK 

300G- 

300A 

310A 

Color 300 
Color 500 



119 

129 

145 

235 

345 

Color 600 399 

Color 700 469 

Color 710 539 

TEKNIKA 

MJ-10 199 

MJ-22 285 

XTRON 

Comcolor 1 189 



ZENITH 

122 

123 



.85.95 
.75.95 



SOFTWARE * 

BATTERIES 
INCLUDED 

PaperClipw/SpellPk... 69.95 

Paper Clip 59.00 

Home Pack 32.95 

Bus Card II 124.95 

B180 Board 99.95 

BRODERBUND 

Print Shop 29.95 

Graphics Library 1 8.95 

B.S. Writer 32.95 

EPYX 
FAST LOAD 23.95 



BMC 

Amber 82,95 

Green 79.95 

COMMODORE 

C-1702 199.95 

C-1802 204.95 

C-1902 RGB 259.95 

C-1901 Monchronie. .. 129.95 



VIDEO CASSETTE * + 

RECORDER $275.95 

Symphonic VHS/Remote 

• 105 Channel Cable Ready 

• 14 Day/ 1 Program Timer 

• 12 Pre-set Channels 

• Auto Rewind CHECK 
Plus much, much more! OCR PRICES! 




MODEMS 

C-1600 44.95 

C-1650 54.95 

C-1660 54.95 

C-1670 185.95 

300/1200 Band 



PRIMTER RIBBONS 

DGST COVERS 



Cardco 

MOD-1 59.95 

C-64 

MPP-1064 ...65,95 

Tele 

Learning 49.95 



Mitey Mo ...59.95 
Westridge. ..69.95 
CompuServe 
Starter Kit. ..21.95 



WE CARRY A FULL LINE OF: 

Batteries Inc., Brodorbund. Contineal, Hess, Infocom. 
Innovative Concepts. Koala. LJK, Microbits. Micro- 
pose, Microtek, O.S.S., Professional S.W Scarborough, 
S.S.I. , Synapse. Time Works. Wico. 



POLICY: No deposit on COD orders. FREE freight on 
all prepaid cash orders over S300 in the continental 
USA. APO and FPO add S5 per hundred. For priority 
Mail add SB per hundred. PA Residents add 6°u sales 
tax. Defective producls must have Prior RA number. 
Schools net 1 5. RBB1 j ef service No mi 
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EXPANDER CARTRIDGE • RGB MONITOR • MONEY MANAGER • ALPHACOM 

& COMMODORE PRINTERS • EDUCATIONAL RELEASES • TAX PROGRAM 




Left: Commodore, star at- 
traction of CES. Right: Com- 
modore's POO and PC20 IBM clones. 
READER SERVICE NO. 104 

SUMMER '85 CONSUMER ELECTRONICS SHOW-f HE CHIPS ARE DOWN 



Still bullish on the home compu- 
ter market? You weren't at June's 
Consumer Electronics Show. The 
Whll Street Journal aptly described 
the computer software section as a 
"ghost town " For us, the proof of the 
pudding was in the carrying: the bag 
of Commodore-related press releas- 
es we toted back to New "Vbrk 
weighed in at twelve pounds, less 
than half of what we brought home 
from January's show in Las Vegas. 

Most vendors were modest in their 
offerings, by comparison to the end- 
less arrays of software displayed at 
last summer's show. Particularly no- 
ticeable was the dearth of education- 
al releases for the Commodore, long 
the most glutted sector of the 64 mar- 
ket. A number of prominent manu- 
facturers were conspicuous by their 
absence. Rumor has it that Atari, 
which had pulled out weeks before 
the show, was given their booth at a 
negligible cost to prevent the mass 



desertion the show's organizers feared 
their cancellation would signal. 

Of course, some believe that canny 
old Jack Tramiel cancelled primarily 
to convince Commodore not to rush 
the announcement of their new Ami- 
ga computer, since Atari's 520ST 
would not be there to steal the show 
in Amiga's absence. By reentering as 
an exhibitor at the eleventh hour— 
Jackintosh and all —Tramiel left Com- 
modore with nowhere near sufficient 
time to ready an Amiga presentation. 
Believe this tale of corporate intrigue 
if you will. The fact is that, even 
without Amiga, Commodore domin- 
ated the floor (helped by the feet that 
Atari wound up tucked away in a cor- 
ner of the upstairs level). 

While the hordes of newshungry 
reporters that invaded the Commo- 
dore booth were disappointed by 
Amiga's absence, Commodore did 
display a most impressive collection 
of hardware— almost none of it, un- 



fortunately, intended for sale in North 
America. Among the new computers 
planned for the European market are 
the IBM PC-compatible PC10 and 
PC20 (pictured on this page), the 
Unix-compatible Commodore 900 
Business Computer (a multiuser 
workstation), and the 128D, featur- 
ing a built-in disk drive and inde- 
pendent keyboard. 

Of greater interest to American and 
Canadian readers were the following 
peripherals compatible with the 
C-128 (and in some cases the C-64 
as well), some previously announced 
but seen for the first time at the 
convention: 

• The 1572 Dual Disk Drive, com- 
prising two horizontal 5 l 4" drives, 
each reading double-sided, single- 
density disks with up to 340K (for- 
matted) memory in C-128 mode and 
4I0K in CP/M mode. 

• The Commodore 1670 Modem/ 
1200, utilizing VLSI technology to 
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deliver a 1200-baud rate at a price ex- 
pected to be under $100. Using "AT" 
Hayes command protocol, the 1670 
has auto-dialing, auto answer, auto 
speed, and auto mode selection. 

• Compatible with the C-128 and 
C-64, the MPS 1000 Printer offers 




draft (100 cps), near letter quality (16 
cps), and graphics modes, and a four- 
column display: Pica (80), Elite (96), 
Condensed Pica (132), and Con- 
densed Elite (160). 

• Just like the Macintosh's rodent, 
the Commodore Mouse will let 128 
users sidestep special function keys 
and commands by moving the device 
over a desktop, thereby positioning 
onscreen icons. 

Commodore also exhibited the 
software currently available for the 
128: Jane 2.0, an integrated word pro- 
cess ing/spreadsheet/fi ling program 
developed by Arktronics Corporation 
and permitting input with the Com- 
modore mouse; the previously an- 
nounced Perfect series from Thorn 
EMI (consisting of Perfect Writer, 
Perfect Calc, and Perfect Filer); and 
u 128 version of Commodore's own 
Micro Illustrator. 

Doesn't sound like a lot? There's 
more; Typing Professor and A Com- 
prehensive Course in BASIC will be 
coming from Commodore, as well as 
programs from such companies as 
Batteries Included, Timeworks, Scho- 
lastic, Spinnaker, Digital Solutions, 
Precision Software, and Melodian. 

Still, an unimpressive amount of 
software for a computer announced 
five months ago -particularly a 
Commodore computer, the heir ap- 
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parent to the 64 throne. Consider it 
one more indication of the depressed 
state of the home computer software 
business. Or as support for one last 
rumor— that a sizeable percentage of 
companies have already directed the 
bulk of their programming efforts to- 



The compact 
(21 x 7 x 15.5") 
Alpha pro 401 
has a small 
desktop "foot- 
print" and a 
sound cover 
that minimizes 
noise. Paper up 
to 15.7" wide 
can be used. 
READER 
SERVICE 
NO. 135 



ward producing software for the 
Amiga. 

35CPS DAISY WHEEL 

Aimed at the office market, the Al- 
phapro 401 daisy wheel printer offers 
a print speed of 35 characters per sec- 
ond, path seeking logic, and a 2K 
(expandable to 16K) buffer for $599. 
The printer emulates the Diablo 630 
printer protocols and uses Diablo- 
and Qume-compatible print wheels 
and ribbons. 

Alphacom Inc., 2323 South Bas- 
com Ave., Campbell. CA 95008 
(phone: 408-559-8000). 

RGB MONITOR 

An alternative to the Commodore 
1902. Sakatas SC-150 is a compos- 
ite/RGB high resolution monitor with 
13" screen, .42mm dot pitch, and 
dark face finish. It will operate with 
NTSC Composite, Y-C, RGBI, 
XRGB, and RGB input. Price 
$499.00. 

Sakata U.S.A. Corporation, 651 
Bonnie Lane, Elk Grove Village, IL 
60007 (phone: 312-593-3211). 

EDUCATIONAL RELEASES 

Two C-64 programs for students in 
grades 7-12: 

Homework Helper Math Word 
Problems ($32.95) aids students. 



through a series of questions and 
prompts, in building the correct equa- 
tion to solve a problem. 

Homework Helper Writing 
($32.95) guides students through or- 
ganizing and outlining their ideas for 
book reports, essays, and research pa- 




Sakata composite/RGB hi-res monitor. 
READER SERVICE NO. 136 

pers, then writing the text with the 
program's word processing and print- 
ing capabilities. 

Spinnaker Software. One Kendall 
Square. Cambridge. MA 02139 
(phone: 617-494-1200). 

Four classics-based C-64 programs 
from Fisher- Price Learning Software 
($24.95 each): 

Peter Rabbit Reading lets children 
3-6 guide the famed bunny through 
a series of escapades, identifying con- 
sonant and vowel sounds and match- 
ing words to pictures. 

Prokofiev's Peter and the Wolf Mu- 
sic introduces children 3-6 to the 
principles of music through seven 
games. 

Jungle Book Reading teaches chil- 
dren 6-9 reading comprehension as 
they guide Mowgli the jungle boy 
through encounters with an assort- 
ment of animals. 

Tlie First Men in the Moon Math 
requires players 9T2 to help Profes- 
sor Cavor solve the math problems 
with which the Sellenite creatures 
have blocked his way. 

Fisher-Price Learning Software, 
P.O. Box 1327, Cambridge. MA 
02238 (phone: 617-494-1222). 

KIDWare has released 60 educa- 
tional programs for the C-64, two to 
each tape ($9.95) or disk ($11.95). for 
children 1-16 years old. For more in- 
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formation contact KIDWare, P.O. Box 
9762, Moscow, ID 83843 (phone: 
208-882-3830). 

Tales of Discovery makes the child 
the central character in two stories: 
Pirates of the Soft Seas (solve vocab- 
ulary and math puzzles to outwit pi- 
rates and find buried treasure) and 
Fossils Alive! (search for fossils and 
learn how a neighborhood looked in 
prehistoric times). For the C-64; 
$29.95. 

Scholastic Software. 730 Broadway. 
New York, NY 10003 (phone: 212- 
505-3000). 

From Sierra On-Line: 

Goofy's Word Factory teaches 
grammer via three games involving 
conveyor belts and a kooky machine. 
For the C-64; $24.95. 

Mickey's 3-in-l (S49.95) consists of 
a word processor, data file manager, 
and telecommunications system de- 
signed for children. For the C-128. 

Sierra On-Linc, Inc., Coarsegold, 
CA 93614 (phone: 209-683-6858). 

CWAN, HAVE S'MORE 

Cardco's S'MORE (for Super 
Memory Optimized RAM/ROM Ex- 
pansion) is a $69.95 cartridge-based 
program that will provide your C-64 
with 61,183 bytes of free RAM (that's 
including the 38,911 already present), 
over 60 new and enhanced BASIC 
commands and functions, full error 
trapping and automatic error help 
(which lists the error line and places 
a flashing cursor at the beginning of 
the program statement containing the 
error), full command selection, full 
up-down scrolling through program 
listings, and direct access to items 
normally PEEKed and POKEd. 

Because S'MORFs command 
structure is similar to the C-128's, 
C-64 programmers can make use of 
the advanced programming tech- 
niques available on the C-128, facili- 
tating later conversion. 

Cardco. Inc.. 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 

SYNCALC TEMPLATES 

For use with the Syncalc spread- 
sheet for the C-64, the Syncalc Tem- 
plates Disk ($19.95) provides 22 com- 



monly used forms and formulas for 
financial planning, budgeting, and 
record keeping. The disk also illus- 
trates basic design principles for con- 
structing or modifying special appli- 
cations spreadsheets, from simple to 
complex. 

Broderbund Software, 17 Paul 
Drive, San Rafael, CA 94903 (phone: 
415-479-1170). 

DEATH AND REVISIONS 

Tclx Command Planner, which is 
designed to let individuals test the tax 
effects of various financial alterna- 
tives, has been revised to account for 
Treasury Department proposals to 
eliminate many existing tax shelters. 
Purchasers of earlier versions can ob- 
tain the update by returning their pro- 
gram to the manufacturer. For new 
users, price of the 64-compatible ver- 
sion is $49.95. 

Practical Programs, Inc. , P.O. Box 
93104, 625 N, Milwaukee St., Mil- 
waukee, WI 53202 (phone: 414- 
278-0829). 

ELECTRONIC COOKBOOK 

Tfie Electronic Cookbook lets C-64 
users store, display, edit, and print 
recipes, 31 of which are included on 
the disk. Price is $20 (Canada $25) 
plus $2.50 postage. 

Arcturus Software, 2332 Palisade 
Dr. SW, Calgary, Alberta. T2V 3V1 
Canada (phone: 403-281-1632). 

KWIK-PITCH 

Datamost has followed up the re- 
lease of Kwik-Load! and Kwik-Write!, 
the first two releases in its Kwik-Ware! 
line of $19.95 software for the C-64, 
with Kwik-Spell! (spelling checker for 
Kwik-Write! and other C-64 word pro- 
cessors), Kwik-File! (database man- 
agement), Kwik-Calc! (spreadsheet), 
Kwik-Paint! (graphics editor), Kwik- 
Check! (check balancing and main- 
tenance), Kwik-Pad! (desk secretary), 
and Kwik-Phone! (communications). 

Each Knik-Wire! program has the 
Kwik-Load! fast loading program 
built in, and most are compatible 
with other programs in the series. 

Datamost Inc., 19821 NordhoffSt., 
Northridge, CA 91324 (phone: 818- 
709-1202), 
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GAMES FOR THE 64, 128, 
AMIGA 

Two graphics-and-text adventure 
games from Spinnaker's Telarium 
subsidiary: 

Ferry Mason: Tlie Case of the 
Mandarin Murder takes place in the 
courtroom, where the player can do 
everything a courtroom lawyer might, 
from cross-examining and introduc- 
ing evidence to consulting privately 
with the judge. The degree of char- 
acters' coopcrativeness varies as a re- 
sult of the player's interaction with 
them. 

Based on the series of science fic- 
tion novels by Roger Zelazny, Nine 
Princes in Amber enmeshes the play- 
er in negotiation, politics, and alli- 
ances as, in the role of the prince 
Corwin, he battles his brothers and 
sisters for the throne of Amber. 
Again, the game's outcome depends 
heavily upon the player's interaction 
with the other characters. 

For the C-64; $32.95 each. 

Tclarium Corp., One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

Lode Runners Rescue casts the 
player as Alexandra, daughter of the 
original Lode Runner who is being 
held prisoner deep underground by 
the evil Bungeling Empire. She must 
negotiate 46 mazes on her way to free 
her father. Of course, included is a 
game editor that lets the player con- 
struct an unlimited number of maz- 
es full of elevators, trap doors, en- 
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King's Quest 
II: Romancing 
the Throne 
(from Sierra 
On-Line, hie.) 
is to our knowl- 
edge the first 
game an- 
nounced for 
Commodore's 
Amiga compu- 
ter. A C-128 ver- 
sion will also be 
available. 
READER 
SERVICE 
NO, 137 



cmy guards, and rushing rivers. For 
the C-64; $29.95. 

Synapse Software, 17 Paul Drive, 
San Rafael, CA 94903-2101 (phone: 
415-479-1170). 

Assorted new C-64 releases from 
Epyx: 




Gato: a C-128 submarine simulation. 
READE^ERVICEN(^38 

Winter Games features six sports, 
including ski jumping, a ski biathlon 
and hotdogging, speed and freestyle 
events, and a bobsled race. 

Tlie World's Greatest Football 
Game allows coaches to develop their 
own plays or customize existing ones, 
and store up to 120 of them in a play- 
book. The action can tic viewed from 
a sideline, bird's-eye, or closeup view. 

Joining Bailblazer and Rescue on 
Fractalus!, previous releases in 
Epyx's Lucasfilm Games Division: 



Hie Eidolon, centering around a 19th 
century machine that taps psycho-kin- 
etic forces, transporting the player to 
a magic realm of caverns populated 
with Trolls, Greps, and Guardian 
Dragons; and Kuronis Rift, compel- 
ling the player to wrest the secrets of 
the ancients from a genetically engin- 
eered race of guardians that outlived 
their creators. 

Jet Combat Simulator recreates ac- 
tual (light situations that confront an 
F-15 pilot, including cross-wind tur- 
bulence and blind landings. Four op- 
tions let the player progress from 
landing practice to air-to-air combat, 

The components of the Temple of 
Apshai trilogy— Temple of Apshai, 
Curse oj'Ra, and Upper Reaches of 
Apshai -will be sold together for the 
price of a single game. 

All of the above Epyx games will 
retail for $29-535 (except Jet Com- 
bat Simulator and the Apshai 
trilogy- $19-529). 

Epyx, Inc., 1043 Kiel Court, Sun- 
nyvale, CA 94089 (phone: 408- 
745-0700). 

New for the 64 from Acti vision: 

As Hacker begins, the player has 
broken into an unknown computer 
system that conceals a mystery. With 
no background information, no rules, 
and no clues, he must find out whose 
system he's hooked into and what's 
going on. 

Fast Tracks: Tlie Computer Slot 
Car Construction Kit lets the user 
build a race course piece by piece 
from a variety of types of track 
sections, view the course as a whole, 
and then race his own custom-de- 
signed car. Favorite courses can be 
saved to disk for future use. 

Though certain to bring a sneer to 
Orson Scott Card's lips, Garry Kitch- 
en's Gamemaker: Tlie Computer 
Game Design Kit joins the ranks of 
programs that make it possible to cre- 
ate games without programming 
knowledge. The user selects 
characters (rocket ship, running man, 
etc.) from a menu, along with their 
speed and direction, background, 
sound effects, and music. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, CA 
94043 (phone: 415-960-0410). 
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Three new C-64 simulations from 
MicroProse, each S34.95: 

Aerojet, The Advanced Flight Sim- 
ulator, for computer pilots who've 
won their wings in Solo Flight, of- 
fers a Decathlon of Sport Aviation 
events, including spot landings, rib- 
bon cuts, acrobatics, and other high 
performance maneuvers. 

Gitnship, Vie Helicopter Simula- 
tor, simulates operation of the new 
AH-64 Apache attack helicopter and 
features multiple weapon and navi- 
gation systems. 

Silent Service, The Submarine Sim- 
ulation, provides a selection of his- 
torical scenarios from single ship at- 
tacks to multipatrol missions with 
graduated enemy skills. 

MicroProse Software, !20 Lake- 
front Drive, Hunt Valley. MD 21030 
(phone: 301-667-1151). 

C-64, C-128, and Amiga releases 
from Sierra On-Linc: 

Goto, a submarine simulation pre- 
viously released for IBM and Apple, 
will be converted to the C-128. The 
game transforms the player into a 
World War II sub commander, prowl- 
ing the Pacific in search of the Jap- 
anese Imperial Fleet. Price: S39.95, 

King's Quest II: Romancing Vie 
Throne, featuring 3D animated 
graphics, will be available in C-128 
and Amiga versions. Price: $49.95. 

Stunt Flyer ($39.95) will let C-64 
users pilot a Pitts Special through a 
number of acrobatic sequences. 

The Black Onyx ($39.95) takes 
C-64 adventurers down into a dun- 
geon maze, then to the top of a mys- 
terious tower. 

Sierra On-Line, Inc.. Coarsegold. 
CA 93614 (phone: 209-683-6858). 

COMPUTER RACK SYSTEM 

Designed for Commodore systems, 
the Hi-Rise computer/printer stand 
(S39.95) will allow users to store their 
C-64 or VIC 20 monitor, printer, and 
disk drive (or printer paper) in less 
than two square feet of desktop space. 
Crafted of solid oak, it's a sure bet 
to outlive the rest of your configura- 
tion. 

Unique Wood Products, P.O. Box 
52, Mankato, MN 56001 (phone: 
507-625-5123). 



BIC ROGERS? 

The Space Pen input device differs 
from other light pens in its ability to 
detect the third dimension, or "Z" 
axis, enabling the user to operate in 
a six foot area in front of the com- 
puter display. While no software cur- 
rently available can utilize this capa- 
bility, the pen will work in two di- 
mensions with all touch tablet paint 
programs and an assortment of popu- 
lar packages. 

C-64 or VIC 20 version $150, 
Amiga version $175, including samp- 
ler software. 

Soniturc, Inc., 480 Vandell Way, 
Campbell, CA 95131 (phone: 408- 
866-4616). 




Space Pert detects third, or Z, axis. 
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GIANT 

HEAVY DUTY 

INFLATABLE BOATS 

2 MAN $38 

3 MAN $50 

4 MAN $65 

Before Midnight 
For The Next 30 Days 
As part o( an advertising test. Dunlap Boat Mfg. 
will send any of above size boats to anyone who 
reads and responds lo this test before the next 30 
days. Each Boal Lol No. (2-26 PVC) is constructed 
of tough high densify fabric (resistant to abrasions, 
sunlight, salt & oil), electronically welded em- 
bossed seams, nylon safety line grommeted all 
around, heavy duty oar locks, 3 separate air cham- 
bers for extra safety (4 air chambers in 4-man), 
self-locking safety valves, bow lifting & towing han- 
dle and are recommended for marine, ocean and 
fresh water recreation, camping, fishing or a family 
fun boal. Each boat will be accompanied with a 
LIFETIME guarantee thai it must perform 100% 
or it will be replaced free Add S7 handling & 
crating for each boat requested Dunlap Boat Mtg. 
pays all shipping. If your order is received wilhin 
the next ten days you will receive FREE a com- 
bined hand/foot inflator/deflator bellows style 
pump for each boat requested. Should you wish 
to return your boat you may do so for a full refund 
Any letter postmarked after 30 days will be re- 
turned. LIMIT ihree (3) boats per address, no ex- 
ceptions, Send appropriate sum together with your 
name and address to: Boat Dept. W341B, Dunlap 
Boat Mtg., 2940 W. Pico Blvd. Los Angeles, C A 
90006. Or for fastest service from any part of the 
country call 1 -800-824-9988 for Boat Dept. #341 B 
(Calif, residents call collect 213-735-9353). before 
midnight seven days a week. Have credit card 
ready. 
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Hi-Rise stand: sturdy and practical. 
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10-20 MEG HARD DRIVE 

If you can live with the irony of 
spending $100 for your computer and 
15-30 times that for a storage device, 
Fiscal Information has the peripher- 
al to fulfill your most extravagant fan- 
tasies. Lt. Kernal, a hard disk drive 
jbr the C-64, will access data up to 
43 times faster than the 1541 (though 
compatible with it in most applica- 
tions). The drive also provides 34 ad- 
ditional or enhanced system com- 
mands, autoboot of a selected pro- 
gram, built-in CP/M-like command 
features, up to 10 logical drives, and 
the ability to keep up to seven files 
open simultaneously. Mass and archi- 
val backup and restore facilities are 
available. 

10MB version $1595; 20MB, 
$1995. Streaming tape option, which 
backs up 10 megabytes in 2 minutes, 
if $1525. 

Fiscal Information Inc. , 143 Exec- 
utive Circle, Daytona Beach, FL 
32014 (phone: 1-800-874-1890), 
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TELECOM NEWS 

General Electric is offering two 
hours of access to CompuServe's ex- 
ecutive information service with the 
purchase of a $99.95 GE telephone 
modem, model 3-8200 (see May '85 
Scuttlebutt, page 9). 

General Electric Company, Elec- 
tronics Park. Syracuse. NY 13221 
(phone: 315-456-2446). 

BRKTHRU gives the user access 
to over 65 databases covering busi- 
ness and finance, science, medicine, 
education, general reference, and 
more. Cost is $75 to sign up ($25 
credit) plus usage charges ranging 
from $17.50-$125 an hour. 

BRS Information Technologies, 
1200 Rt. 7, Latham, NY 12110 (phone: 
518-783-1161). 

SCREENPLAY REBATES 

Software Resource Group will of- 
fer a $5 rebate direct to the consumer 
on purchase of all Screenplay and 
Brown Bag Software. 

Software Resource Group, 1095 
Airport Road, Minden, NV 89423 
(phone: 702-782-9731). 

PRINT SHOP GRAPHICS 

'lite Graphics Library, Disk Two, 
like the previously released DM One, 
provides additional designs, symbols, 
and pictures for use with Tlie Print 
Shop, this time in the categories of 
Jobs. Hobbies. People, Places, Trav- 
el, and Health. For the 64; $24.95. 

Brodcrbund Software, 17 Paul 
Drive, San Rafael, CA 94903-2101 
(phone: 415-479-1170). 



MAKE YOUR OWN 
KIND OF MUSIC 

The two latest additions to Master- 
Soft's Mastery in Music series, Trum- 
pet Master and Clarinet Master, let 
the student personalize his practice 
music with his choice of key and time 
signatures, note type, and note range. 
Instant access to music facts and fin- 
gerings is always available. Scales, 
thirds, and intervals in every major 
key are included. For the C-64; 
$49.95 each. 

MasterSoft, P.O. Box 1027, Bend, 
OR 97709 (phone: 503-388-7654). 

A FIRST FROM JUKI 

Juki's first dot matrix printer, the 
5510, churns out type at speeds rang- 
ing from 30 cps (near-letter quality 
mode) to 180 cps (draft mode). The 
printer's bidirectional, logic-seeking 
system combines a 9" platen with as- 
sorted printing width capabilities. In- 
cluded is a built-in tractor. 3K buf- 
fer (expandable to 15K). Suggested 
retail price is under $500. 

Additionally, Juki has extended its 
current customer service warranty on 
all its microcomputer printers to one 
year from date of purchase. 

Juki Office Machine Corp., 299 
Market St., Saddle Brook, NJ 07662 
(phone: 800-932-0590). 

MORSE CODE TUTOR 

IMCT offers a tutorial in Interna- 
tional Morse Code, and a training 
program to increase your code speed 
from 1-25 words a minute. For the 
64; $18.95 (PA residents add 6% sales 
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tax). 

AC3L Software. P.O. Box 7. New 
Deny, PA 15671. 

ACTIVISION RELEASES 

Two non-games for the C-64 from 
Activision: 

The Complete Computer Fireworks 
Celebration Kit lets patriots create 
fireworks displays, add music and 
special messages, and turn their dis- 
plays into computer greeting cards. 

Alter Ego allows users to vicarious- 
ly experience life as someone else, 
building a unique personality through 
reactions to a variety of emotional, 
physical, and other situations. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, CA 
94043 (phone: 415-960-0410). 

BOOKS 

Tlxe Greatest Gaines: TJte 93 Best 
Computer Gaines of All Time (by 
Ahoy! reviewers Dan Gutman and 
Shay Addams) reviews 93 games in 
18 categories. Price is $9.95. 

COMPUTE! Publications, Inc., 
324 W. Wendover Ave., Suite 200, 
Greensboro, NC 27408 (phone: 919- 
275-9809). 

The latest edition of the Sofise! 
Product Encyclopedia, covering more 
than 3,000 software and hardware 
products in its 334 pages, is available 
for S29.95. 

Softsel Marketing Dept,, P.O. Box 
6080, Insjlewood, CA 90312 (phone: 
714-6407375). 

Problem Sol vi ng in BASIC with the 
Commodore 64 consists of a book 
and a 30-minute videotape that take 
the user on a tour of top-down pro- 
gramming on the 64. Price is $59.95. 

Hayden Book Company, 10 Mul- 
holland Drive. Husbrouck Heights. 
NJ 07604 (phone: 201-393-6306). 

Marketing Your Software ($16.95) 
offers a 26-step plan, from defining 
objectives and analyzing competition 
to investigating distribution and de- 
signing packaging. 

Addison-Wcsey, General Publish- 
ing Group, Reading. MA 01867. 

Graphics Library: pixfor Print Shop. 
READER SERVICE NO. 150 



12 AHOY! 




YOUR MISSION: 

TO EXPLORE 

NEW WORLDS 

Tap Mo an exciting computer 

resource available lor Ihe VIC-20 

and C 64 computers: synthesized 

speech. 

Talktronlcs brings to you two 

extremely powerful plug-In 

speech synthesizers to let your 

computer sound off in ways 

you never knew were possible. 

VIC-Talker and 64-Talker 

enhance your educational 

programs and games, aid the 

handicapped and generally 

increase computer 

"friendliness". 

Look at these 
sophisticated features: 

Self contained firmware - 
disk or tape not required 
for synthesis. 
Audio mixer to combine 
computer generated 
sounds with the synthe- 
sized voice for VIC- 
Talker or 64-Talker. 
Two user ■programmable 
voices that can be as 
varied as your 
imagination - from 
chipmunks to robot 
warriors. 
• Translation of ordinary 
text directly to synthesized 
speech using pronunciation 
rules lor English. 
• Nonvolatile user- 
programmable exception 
word memory permits Special 
pronunciation or translation of 
words you select and is retained 
when power is off, 
• Contains rules lor pronuncia- 
tion of text, numbers, punctuation 
and BASIC command words, 
Accurate translation ot number strings in decimal, dollars and cents, 
fractions, BASIC equations, time and phone numbers. 
Easily controlled with simple commands from BASIC or machine language - 

like using the printer or disk. 
Proofread mode announces the punctuation in a different voice - lets your 

computer "speak" BASIC program listings. 

• Change the voices along with speaking text. Make It slngl 

•The voice comes out on the TV or monitor. 




VIC-Talker and 64-Talker 
are priced at $89 each 
and are available from 

Talktronlcs, Inc. 

27341 Eastridge Drive 

El Toro, CA 92630 

(714) 768-4220 
9 AM - 5 PM, PST 



VtC-20 and C64 are registered trademarks of Commodore Business Machines, intl, 
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Sensational Prices! 

\^ . . . On Our Most Popular Items! 



r Introducing . 

THE 990 DISKETTE 

Are you paying loo much lor diskettes? Try our 
lirst quality, primo, 5'A" diskettes (no rejects, no 
seconds) al these (antasic sale prices and save, 
save, SAVE! Disks are packaged in boxes of 50; 
each box contains 5 shrink-wrapped 10-packs that 
include diskettes in sleeves, labels, and write- 
protect tabs. 

Each diskette is certified to be 100% error free and 
comes with a life lime warranty (if you have a 
problem, we'll replace the diskette). All diskettes 
include hub reinforcement nngs and write- 
pro feet notch. 

All diskettes are double density and work in either 

single or double density drives 

SS. OD Diskettes. Box of 50 

3239f S 49.50- S 99C ea! 

DS, DD Diskettes, Box of 50 
32403 



s 64.50-=t29ea! 



The Most Complete Disk Drive 
You Can Buy 

Includes Word Processor, Spread Sheet, and 
Data Base Manager 



INDUS GT 



ONLY 



$ 259 



Staie-tif-lho-ori rjis* drive for C-&4 and VlC-20 feaiumt LEO 
sector indicator, electronic wnte-prottct. ouR-m wedge, and 
operating speeds up to 400% faster Package includes cartes 
and power supply, carrying case tftai doubles as a disk storage 
tile AND software starter package featuring word, processor, 
spreadsheet, and database manager program 1 

FULL YEAR PARTS AMD LABOR WARRAhfTY" 



33443 Indus GT Disk Drive 



ONLY l 259 



LOWEST PRICES! 

We can offer you some of the lowest prices in the country on the most — tL-^.^. 
popular printers, monitors and interlaces. Our normal prices are already ^!£©)lf ' 
low, but to make sure you get the best deal you can. we will also meet most "'\.^*hjj±^ 
competitive prices in this publication when placed on an equal basis 
(Romomber— wo rjon'l charge for use of your credit card, impose excossivn EPSON 
shipping fees, or use any other hidden extras to boost Ihe price you pay 
Due to the rapid change In prices in the computer industry, wo can only BMC 
maet prices al the time you place your ordwr; we cannot adjust prices on 
iiems ordered or shipped on an earlier date) Another plus lor charge card AXIOM 
Customers— your charge card Is billed at time of shipment only for the items 
shipped—no early billing, no long wait for the merchandise you already CARDCO 
paid for 

* THE BEST PRICES * THE BEST SERVICE * 
WHY SHOP ANYWHERE ELSE? 




COMPUTERFACTS® 

Technical Service Data for 
Your Computer and Peripherals 

Sams introduces COMPUTERFACTS™ 



from SAMS 



packeH or 'rfawanon mac reveal (ft* 
inn*' workings al ma.w brand micros, rtoniiors printers and dis*. driva* incluOH Khinn*r.ic wfe. 
iflQ d-agramj. para l-ss. disassembly instructors, iroubteshoot.ng iM+uirquM. and &f\w repair data 

33477 C(hnrTioddffl 64 Compulsr 
33513 VIC JO Cum puli) i 




33551 Cornrnnrjofo Piin^ Compultr 
33451 Commoctort 1541 Diik Dflva 



33*96 CommtKlofo T525 Prmlir 
33508 Commodoft' Cie Cpmpulor 



33546 CcmrnrjdO'P tTOt Monitor 



All packets 
$17.95 each 



GRAPHICS PRINTER INTERFACE 



??! 




The PPI (Parallel Pnnter Iniortacei from DSl is a high- 
performance graphics printer -menace for your Cornrno- 
dore 64 or VIC-20. offered at an unpeiievabio pncat The PPI 
fully emulates a Commodore pnnter so Itr&i all software written 
far Commodore compuiers and printers can be run with the PPI 
and mosl any parallel pnnter. Pnnt true Commodore graphics and 
alpha -numencs as wen as any special character sets offered by your 
specific pnnter. Works with Star, Epson. BMC. and many more. Comes 
complete with all necessary cables tor quick installation and includes 
easy-to-follow user's manual 



$* 



33565 Parallel Punier Interface 



$ 44.95. 



CARTRIDGE EXPANDER 

^£|2E| Plus 822.95 
= = FAST LOAD 



OFFER! 



Stop ntaraiti Cut vouf cornpuiat two Ctrlndgoft [jy entf Ht Bwappnng' f*uw 
dougi cartridge enpinMr iMtyrot two caMf'dga ncni Seltei c<trwr cth 
['idgw. c l*i* "oft" povrton ii no c#Mr og<? u to be used R«*1 the com. 
putor ndcpflmjonl^ &i [ho power switch Cartridge slots are waicaJ tor 
fr**y «CC»»*^"d bl-rvrj TumW nij t»hnd the COrnpLiter 

34220 ? - S I o : C a r t r i eg e E k p a n d e r 5 1 9 . 9 5 

The tMrtiiOQO eupjfitiar ib a great co<npan*fl tor liie Epyx Fast Lou 
cartridge— irOM can fceep rt permanently installed pius have a ska free lor 
«ner cartridge*' 
34216 Fast Load Cartridge [Sug nea»>3«99) s 29.95 

Fast Load ONLY $22.95 
with purchase of cartridge expander! 



DUST COVER and 
"EVERYTHING BOOK" 

INTRODUCTORY SPECIAL 

Gel lo know us by ordering (hi; grgai ctus! cover 
lor your VlC-50 or Commodore 64 and our cata- 
log, The Evoryining Booh lor the Commodore 
C 64 and VtC-20 Home Computers, for %2 9& 
jno oj'Ta snipping or handling charges) Cover 
it a nn sialic transJuscent. 8 gauge vmyi sew-r- id 
our ejiaci'ng sianrjaros with reirntorced seams 
Discover me savings and easy ahoopjng avail- 
abde Irpm Tenei Computer Express 1 

a 2.95 

31627 Duet Cover and Cettlog a 



T USB SINGLE SHEETS 
IN YOUR TRACTOR FEED 
PRINTER WITH 

PAPER TRACTOR ' 

Paper Tractor carries ordinary sheet paper 
through your tractor- leed printer 1 
S>mpiy place your letiemead. checks, 
invoices, forms, even legal -size sheets 
into the durable flexible plastic earner and 
feed into your adjustable Iractor-drive 
printer Works with any pnnter, carries any 



paper 



22084 



11.95^ ; 




We gladly accept 
mail orders! 

P.O. Box 6578 

South Bend, IN 40660 

Questions? Call 
219/259-7051 



Ad 
A1A 



SHIPPING CHARGES 
ORDER AMOUNT CHARGE 

less than $20.00 

S20.00-S39.99 

S1O.00-S74.99 

S75.00-S149.99 

S150.00-S299.99 

S300 a up 




NO EXTRA FEE FOR CHAR GES 
NO HIDDEN EXTRAS 

ORDER TOLL FREE 

1-800-348-2778 
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INVECTIVE 

for the C-64 



fnvective isn't like any other game you've 
ever played. Nothing chases you and you're 
not shooting at anything. You simply move 
around the game board collecting points by 
snapping up green figures at 10 points each. 

Of course there's a catch. The joystick is scrambled 
so that what used to move up now moves perhaps left, 
what used to move left now moves perhaps right, etc. 
The joystick is scrambled every 15 seconds to a new ran- 
domly chosen configuration. If you bump a blue figure 
the joystick gets rescramblcd and you lose 20 points. If 
you bump a yellow figure you lose 50 points. 

In the first 15 seconds of the 90 second game, the joy- 
stick operates normally. After that it's hard going all the 
way, since everything is against you. You'll be lucky to 
make a score as high as zero the first few times you play 
Invective. 

That's all you need to know to play. From here on I'll 
just ramble about technical matters. 

When you type Invective there is no need to copy the 
blank lines or REM suite ment lines. 

Line 430 tells the computer to scramble the joystick 
every 15 seconds. If you'd like a different number of sec- 
onds, substitute your number for 15 at both places in the 
line. Line 680 limits play time to 90 seconds, which is 
expressed as B0 (for 1 minute 30 seconds) in the line. 

Lines 750 to 850 tell you how the joystick has been 
scrambled. The game is much harder if you don't have 
this information, so you might want to leave it out. The 
easiest way to do this is to change the command to print 
brown letters to a command to print medium gray let- 
ters. Since the background is medium gray the letters will 
be invisible. The print brown (Commodore key and 2 
key) is in line 750 and is easy to change to print medium 
gray (Commodore key and 5 key). 

You may be wondering how the joystick can be scram- 
bled. The normal way to use the joystick is to first get 
the value in the joystick address (location 56320). This 
value is then ANDed with 15 to get rid of the meaning- 
less first four bits of the byte. The result is then sub- 
tracted from 15. A result of means no change. 1 means 
up, 2 means down, 4 means left, and 8 means right. So 
far that's all by the book and all that remains is IF state- 



By George Trepal 

ments. If the value is 1 move up, if 2 move down, and 
so on. But what would happen if we told the computer 
to move right instead of up when the value was 1? An- 
swer: it would work just fine. 

The values on how to move are held in the J( ) array 
and the pointers relating the J( ) values to the joystick 
are in the SA( ) array. 

Lines 690 and 700 shuffle the SA( ) array. The algo- 
rithm starts with the first clement of an array and ex- 
changes it with a randomly chosen element of the array. 
It then repeats the process with the second, third, etc. 
elements. This technique is useful for computer card shuf- 
fling. D SEE PROGRAM LISTING ON PAGE 112 



f 
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Since November 1964. Mr. Nibble has 
successfully copied heavily protected 
diskettes lor grateful C-64 owners! 



WkiU (UJmM fin&mUe, 



detiv&u! 



The next generation in archival 
methods is here today! 

• No better disk, co&et al any pntjff 

• Easy-to-use — no comptficarptf 
instructions 

• Totatty automata — no knowledge 
of DOS reoutwd 

• YQullLQVBM&WBBLf — itnQt. 
return wrtfnrr 70 day$ tor tutt refund 

Own THE FINEST DISK COPIER SYSTEM for 

The C-64 and 1541 disk drive - flkjLj A^Am / 



FULL CIRCLE SOFTWARE, INC. 

P.O. Box 1373 

Oayran.Qmo 45*31 

PHOnc(513:' 22^2102 




CilOOf mt iu*t ihiwmm i hintfunfl 



J ..:-:■ ■ - 1 ■■!■-: -■ If tmt &° i Hi*t U* | 



ID day rrfcum prinJ#9* 



V 



Special MSD Version now available! 
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C-64 and 
C-1 23* OWNERS 





Do you know the full contents of all your Disks in your Software Library? 

Stop playing "Hide-and-Seek" with your Disk software! Let your Commodore 64™ 
"memory" do all the work for you. Easy Manual and Program Menu-Screens make 
everyone a "pro" in 1 day! 

Here's a small "PEEK" at SOME of the FULLY-INTEGRATED POWER of 
PRODUCTIVITY at your fingertips. . . 



MASTERDISK©: 

• a SORTED Master Catalog of ALL your Disks 
(even those un-listable "protected" Directories: 
Names. ID'S, File info, etc.) 

• Search + List any File/Disk/ID in seconds, auto- 
matically, in any of SEVEN WAYS. 

• Transfer ML-Programs or Files from Disk to 
Disk (CATEGORIZE your software) 

• Stop disaster before it strikes: change dupli- 
cate ID's fast, without total re-copy. 

• Restore accidentally-scratched files in a flash, 
with VERIFICATION that they're OK. 

• Works with 1 or 2 Single Disk Drives (1541. 
MSD, etc.) with or without Printer (Commodore 
or ASCII). 

• Handy-Reference Card for HEX/ASCII/ 
BINARY-TO-DECIMAL VALUE TRANSLA- 
TION + FORMULAS, included FREE. 

• All this + MUCH MORE, for just $34.95. (U.S.A.) 



NEW"! - MASTERDUAL©, 

"Son of MASTERDISK©" . . . 

same power, but with 

Dual Drive Speed! 

• Same Catalog Features as MASTERDISK© 

• Same Disk repair functions, too 

• For all C-64 & C-128' systems with Dual Disk 
Drives (4040, MSD, etc.) 

• Utilizes all Dual Drive functions for maximum 
speed and ease of use 

• FREE Handy Reference Card for HEX/ASCII/ 
Binary to Decimal Translation + Formulas 

• Experience FULLY-INTEGRATED POWER for 
just $29,95 (U.S.A.), $39.95 (Canada) 

$45.95 (Canada) 



'MASTERDISK? and MASTERDUAL 1 are also compatible with the NEW C-128 (in C-64 Mode)! 

Don't MESS with anything LESS! OUR CUSTOMERS WRITE: 

"Been meaning to write and let you know how much I've enjoyed it . . . 
So. let me say that MASTERDISK is EXCELLENT." — Middietown, NY 

"... just the thing I need." — APO. NY (Germany) 

"Hope to get my [MASTERDISK] yesterday." — Maple Grove, MN 

"I am impressed with your product and would like to be able to endorse it for TPUG." — Ontario, Canada 

"... nothing else even comes close!" — Burlington, IA 



We ship within 24 hours! Send Money Order or Check to: 



INTEGRATED-SOFTWARE SYSTEMS 

P.O. Box 1801, Ames, IA 50010 

VISA.'M.C- C.O.D., CALL (51 5) 233-2092 

9 am • 9 pm (Central Time) Mon.-Fri. 

Add S3 Shipping/plus $2 Foreign. COD. 

I A Residents add 4% Sales Tax. 



IN CANADA: Cricket Distribution Co., 

P.O. Box 953, Cobourg, Ontario, Canada K9A 4W4 

VISA MX. COD >., CALL (416) 372-3692 

9 am - 6 pm (Eastern Time) Mon.-Fri. 

Add $3 Shipping/plus $2 C.O.D. 
Ontario Residents add 7% Sales Tax 



Whether you have tens or hundreds of disks, now YOU can be the MASTER 
of your TOTAL Software Library! 
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SUPERHERO 

for the C-64 

By James C, Hilty 

A meteor storm has caused the space shuttle 
to move off course and rapidly gain alti- 
tude. Upon reaching an altitude of 800 
miles, the shuttle will be lost forever. The 
only hope of saving it is you , the Super- 
hero. You must destroy 10 golden meteors before the shut- 
tle reaches 800 miles. But beware -hitting the green Zyp- 
tonite meteor will render you powerless and the game 
will end. 

The game opens with the title screen, then a graphics 
chart depicting the Superhero, the space shuttle, and the 
meteors. The playing screen incorporates a randomly 
drawn maze. The Superhero character is at the upper right 
of the maze, while a Zyptonite meteor is at the upper 
left. A joystick in Port 1 allows you to move Superhero 
while he tries to get the 10 gold meteors which are placed 
along the maze. The Zyptonite meteor moves randomly 
throughout the maze. Colliding with the Zyptonite me- 
teor finishes you off. 

The altitude is constantly displayed along with the 
score. If the shuttle reaches 800 miles, the game is over. 
Each meteor you destroy is worth 10 points. Getting all 
10 of the meteors before the shuttle reaches 800 miles 
gives you bonus points, lowers the altitude, and allows 
you to progress to a new maze. 

The running Superhero figure and the space shuttle 
in the maze cutouts are sprites which react to the differ- 
ent conditions going on in the maze. 

The main loop (lines 870-950) uses a machine language 
joystick routine to move the Superhero character. The 
Superhero in the maze cutout is animated by POKEing 
different values into SPRITE 0's memory pointer. A re- 
play option is incorporated at the end of the game. D 
SEE PROGRAM LISTING ON PAGE 101 

START & END 



for the C-64 

By David S. Smart 

As well as giving the start or load address 
of a file, this little program will give the 
length of a file and the end address. 
The program begins by initializing the 
disk and then requesting the name of the 
file to check. It will then give the start address in both 
hex and decimal and continue on to read in the file. It 
then gives the length of the file in bytes and finally the 
end address in hex and decimal. 

If you have another program residing in the cassette 
buffer, the machine language portion of this one can be 
easily relocated. D 

SEE PROGRAM LISTING ON PAGE 109 



STOP THE SPREAD 
OFA DEADLY VIRUS 

Quick. Deadly viruses are rapidly multiplying. If you 
don't art fast, they'll infiltrate your entire bloodstream. 
And in seconds it'll be over. So blast the invaders with 
interferon, And annihilate them with macro- 
phages. With Cell Defense, you con- 
trol your own immune system. 
You'll discover basic concepts in 
biology. And explore exciting 
scientific strategies. While 
at the same time, leading 
an attack against a host of 
deadly viruses. So get ^~ 
yourself the science 
simulation game Cell 
Defense. Your life may 
depend on it. 

CELL DEFENSE IESW&RE 




Suggested Retail 



$14.95 



CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 

HESWARE P.OBOX 631 S. SAN FRANCISCO, CA. 34083-0631 

ADD S2.00 FOR POSTAGE AND HANDLING. VISA AND MASTERCARD AVAILABLE. 



PUSHAUTHE 

RIGHT BUTTONS AND 

YOU COULD BE THE NEXT 

AMERICAN IN SPACE. 

The race for space is not a game. It's a reality. That's why 

we developed a program that will challenge your 

ability. Expand your mind. And keep you ^^f*i 

fascinated for hours. Project Space Sta- ,-^T . /">l7 

tion is the most sophisticated way to , SW^ r 

learn to design and operate a space j cTATTON 

station. You'll even use the — 

elements of the actual process 

NASA uses in their design. 

You can take on the mission 

yourself, or bring along your M- 

farmily and friends. So get flf* 

working on Project Space """^ 

Station today. America's astro 

nauts are counting on you. 

PROJECT SPACE STATION BY HESWARE 





Suggested Retail 



$24.95 



CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT; 

HESWARE P.OBOX 631 S. SAN FRANCISCO, CA. 94OB3-0631 

ADD $2.00 FOR POSTAGE AND HANDLING, VISA AND MASTERCARD AVAILABLE. 
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GMEATING YOUR OWN GAMIES 



\>i 



N THIS VIC AND 64 



In case you're one of those people who always 
wanted to grow up to be a swineherd, this is your 
lucky day. The program Pig in a Poke, included 
with this issue of Ahoy!, is just what you've been 
waiting for. 
If, on the other hand, you're a nearly normal adult, 
you'll find that Pig in a Poke is not exactly challenging - 
it's about at the ability level of a four-year-old. 
But that's all right. Four-year-olds need games, too. 
And for those of you who are a bit older, the program 
is a clear demonstration of how to use sprites in game 
programming. It's very simple, using only one sprite and 
two sprite shapes, with the player able to control only 
horizontal movement. But by the time you're through 
studying the program, you'll know how to create sprites, 
move them, do shape-flipping, detect collisions, and make 
the sprite interact with the playfield and the player's in- 
structions. And that's not bad for a simple program about 
a cute little pig trying to avoid the butcher's shop. 

MOW TO PLAT 

Once the program has finished setting up, you'll have 
a little pig on a grassy field. However, the robot swine- 
herding machinery is in action, with moving fences 
sweeping across the field, trying to herd the pig toward 
the top of the screen. 

You are the pig. All you have to do is run from side 
to side to avoid those fences. If they touch you, they'll 
push you upward, toward the top of the screen; but if 
you stay in the gaps between the fences, you'll be safe. 
Eventually, after fifty fences have gone by, the swine- 
herds will give up and you'll be safe. 

You control the pig by pressing the SHIFT key to move 
right and the COMMODORE key to move left. If you 
want to quit the game early, press SHIFT, COMMODORE, 
and CTRL all at the same time. 

The game will end when fifty fences pass by; when 
you press SHIFT/COMMODORE/CTRL; or when the 
pig reaches the top of the screen. 

WHY AM SPRITES SO GOOD7 

The pig is, of course, a sprite. But there wasn't any- 
thing I did with that pig that couldn't be done with cus- 
tom characters, was there? 

Shapes and Sizes. Certainly the shape of the pig could 

have been duplicated with custom characters -six char- 

acters, in fact, to make the whole shape. That's because 

| the pig is made out of 10 rows of dots, 23 columns wide. 

| <& Since each character is eight dots by eight dots, it would 

| take six whole characters to make the pig shape, two rows 

1-5 of three characters. 

By Orson Scott Card 
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HAS EVERYTHING! 

subscrYbeto'ahoy" 

D Twelve Issues for $19.95 ($26,95 Canada and elsewhere) 

□ Twenty-four Issues for $37,95 ($49.95 Canada and elsewhere) 

Name , 



Address. 
City 



State. 



.Zip. 



Send coupon or facsimile to; 

ION INTERNATIONAL INC. 

45 West 34th Street, Room 407, New York, NY 10001 



The sprite can even be bigger than the pig. While the 
maximum width of a sprite is 24 dots, it can be up to 
21 rows in height -more than twice as Uill as my little pig. 

Furthermore, the 64 allows you to change the size even 
more. You can double the sprite's width, or its height, 
or both. When you choose to expand the sprite, the VIC-2 
video chip takes the shape from memory and doubles 
each dot; the pattern remains the same, but it is spread 
out over twice as many dots on the screen. If you dou- 
ble the width, the sprite then becomes 48 dots wide 
(though the pattern is still confined to 24 dots, each of 
which is doubled when it is displayed). If you double 
the height, the sprite becomes 42 dots high. 

One-byte Registers. Sprite expansion is controlled with 
the two sprite expansion registers. Each bit of the single 
byte of the horizontal expansion register (at 53277) con- 
trols a single sprite. Sprite is controlled by bit 0, sprite 
1 by bit 1, and so on to sprite 7, controlled by bit 7. If 
a sprite's control bit contains a 1, its width will be dou- 
bled; if it contains a 0, the width remains normal. 

For instance, let's say you want to double the width 
of sprites 0, 1, 2, and 7, but leave the other sprites alone. 
To turn on sprite 0, you need a 1 for bit 0, which has 
a decimal value of 1. Bit 1, when "on," has a decimal 
value of 2. Bit 2, when "on," has a decimal value of 4. 
You notice the pattern, of course— each bit's "on" value 
is double the "on" value of the bit before. Bits 3, 4, 5, 
and 6 have decimal values of 8, 16, 32, and 64— but since 
we aren't using them, we won't include those decimal 
values in our number. We mil include the value of bit 
7, however, which is 128. 

Combine those, now: I + 2 + 4 + 128 = 135. To 
double the width of sprites 0, 1, 2, and 7, you only have 
to POKE 53277,135. 

Several of the sprite control registers control all eight 
sprites with a single byte, each bit serving as an on-off 
switch for one of the sprites. In every case, bit con- 
trols sprite 0, bit 1 controls sprite 1, and so on. 

That's why in Pig in a Poke -as with any other pro- 
gram where I use sprites — I set up two arrays to control 
the on-off switches for the different sprites. The bit-set 
array, BS(0-7), contains the values 1, 2, 4, 8, 16, 32, 64, 
and 128. Then, when I want to turn on, or "set," the bit 
that controls, say, sprite 4, I only have to: 

POKE 53275, PEEK(53275) OR BS{4) 

The other array, BC(0-7), is the bit-clear array. It con- 
tains the values 254. 253, 251, 247, 239, 223, 191. and 
127. Each value is a bit-mask: every single bit is "on" 
except the bit that controls the sprite in question, {The 
maximum value of a byte— all bits "on — is 255. So the 
bit-mask for bit is 255-1, or 254; the bit-mask for bit 
3 is 255-8, or 247; the bit-mask for bit 7 is 255-128, or 
127.) 

Then, when I want to turn off, or "clear," the bit that 
controls sprite 4, I only have to: 



POKE 53271, PEEK (53271) AND BC(4) 

Changing Shapes. The sprite is also versatile in its 
shape. You can store, theoretically. 64 separate sprite- 
shapes in the 16K block of video memory. (Actually, you 
need to leave at least IK for screen memory in text mode, 
plus room for as much character memory as your pro- 
gram needs.) Each of the eight sprites on the screen can 
take its shape from any one of the shapes you've stored 
in memory. 

You could have all eight sprites look exactly the same 
by telling the VIC-2 to take their shape from the same 
pattern. 

Or you could have one sprite cycle through dozens of 
different shapes in an animated sequence, with a single 
POKE for each change. 

The sprite shape location registers aren't always in the 
same place, and their code is a bit complex. To under- 
stand how to use them, let's review some things we've 
covered in earlier columns. 

Review of Video Blocks. As you remember, the VIC -2 
video chip can only see 16K of RAM at a time. So all 
the graphics features have to be located in that 16K block: 
screen memory, character memory, sprite shapes, and 
bit-map memory. (The only exceptions are color mem- 
ory, which is always at 55296-56319, and ROM charac- 
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ter memory, which is really located in a switchable bank 
at 53248-57343, but is seen by the VlC-2 at 36864^0959 
when it is using the third video block, and at 4096-8191 
when the VIC-2 is using the first video block. This is 
automatic, so once you select one of those blocks, the 
character set will be present for your use.) 

The four possible video blocks are at OK (from to 
16383), at 16K (from 16384 to 32767), at 32K (from 32768 
to 49151), and at 48K (from 49152 to 65535). When the 
64 powers up, it is using the first video block, starting 
at OK. It puts screen memory at 1024 and sees the char- 
acter set as if it were at 4096. This won't be too helpful 
when you're using sprites, however, because your BASIC 
program starts at 2048 and runs right through this whole 
block-there are only a few nooks and crannies into which 
you can tuck a sprite shape or two without bashing the 
BASIC program. 

Often you'll use the second video block, at 16K, espe- 
cially if your BASIC program is short enough to leave 
you some room. However, in that block you have to define 
your own character set. The third video block, at 32K, 
allows the VIC-2 to see character memory at 36K. You 
also can't use the last 8K of this block, from 40K to 48K, 
because that is BASIC ROM! But you still have 4K to 
contain screen memory and sprite shapes — and most of 
the time that will be enough, with plenty of room below 
32K for a long BASIC program. The fourth block, at 
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48K, contains so much ROM that it's virtually unusable 
for video purposes. 

The first two bits of the register at 56576 tell the VIC-2 
which video block to use. First you AND the register 
with 252 to blank out those two bits, then OR it "with 
the code for the video block you want. The code for OK 
is 3; for 16K, 2; for 32K, 1; and for48K, 0. (You need 
to diddle with the data direction register at 56578.) Here's 
how to select the 32K block: 

POKE 56578, PEEK ( 56578 )0R 3:P0KE 56576, (P 
EEK( 56576) AND 252)OR 1 

You also need to tell the VIC-2 where screen and char- 
acter memory are, which is done at 53272; and tell BASIC 
where to find screen memory by POKEing the page num- 
ber into 648. In Pig in a Poke, screen memory is right 
at 32K, which to the VIC-2 is OK within the video block; 
BASIC uses the absolute page number, which is 128. 
Character memory is at 36K, which to the VIC-2 is 4K 
within the block. So the number POKEd into 648 is 128, 
and the number POKEd into 53272 is character mem- 
ory IK boundary plus sixteen times screen memory IK 
boundary, or 4+16*0. (For those of you who grew up 
with the New Math, that adds up to 4. A lot of work 
just to get a dumb little one-digit number, isn't it?) 

Now that we've told the VIC-2 where to find all this 
stuff, where are those sprite location registers? The sprite 
location registers are the last eight bytes of the IK block 
where screen memory resides. That's why we had to go 
through all this rigmarole. You have to know where screen 
memory is to find out where the sprite location registers 
are. The address is video block address plus screen mem- 
ory IK boundary times 1024 plus 1016. In Pig in a Poke, 
that's 32768+0+1023, or 33791. 

Each sprite shape location register contains a number 
from to 63, representing one of the 64 possible 64-byte 
blocks of memory within the video block. For instance, 
a 10 tells the VIC-2 to look for the block starting at ad- 
dress video block plus ten times 64. A 55 would tell the 
VIC-2 to look at video block plus 55 times 64. Since our 
video block starts at 32768, sprite shape block number 
10 (the eleventh block, since the first block is numbered 
0) starts at 32768+10*64, or 33408. 

However, since screen memory in our program starts 
at 32768, and uses 1000 bytes of memory, that sprite block 
is within screen memory. Now, this doesn't cause the 
VIC-2 any trouble. It will merrily display both the screen 
and the sprite, using overlapping regions of memory. 
VIC-2 doesn't care. But you probably will. As the screen 
display changes, so will your sprite shape! 

A Small Example. Let's throw a sprite shape onto the 
screen showing just how that works. Power up your 64, 
and enter the following program lines in direct mode. 
Notice that we will not change the video block -we're 
using the screen as you normally have it. 

POKE 53269,1 
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This enables sprite 0. 

POKE 53248, 175: POKE 53249,135 

This puts the sprite at horizontal coordinate 175 and ver- 
tical coordinate 135. That's just about in the middle of 
the screen. 

You'll notice that at this point the sprite is a rectangu- 
lar display of garbage. But it isn't just any garbage -it 
is the garbage pointed to by the sprite shape location reg- 
ister for sprite 0. Remember, this is found at byte 1016 
from the start of screen memory. The default screen mem- 
ory for the 64 is at 1024, so that the sprite location 
register is at 1024+1016, or 2040. 

Upon powering up, my machine puts a 32 at 2040. 
This means that until I change it, sprite will display 
whatever is in memory at 0+32*64 (video block OK plus 
64 times sprite shape location code 32), or 2048. It just 
so happens that this is the address of the beginning of 
the BASIC program area. Just enter a few meaningless 
lines, like 100 REM and 200 REM THIS IS JUST A 
TEST. With each line you enter, you'll see the sprite shape 
change as BASIC builds a program in the sprite shape 
block. (If your 64 shows something else, POKE 2040,32 
and enter or delete program lines.) 

Now let's move the sprite shape block somewhere else. 
In direct mode: 

POKE 2040,2 

Right in the middle of the sprite you'll see some flic- 
kering dots. These are the constantly changing bytes at 
167 and 168, where the operating system maintains a clock . 

Can't see it clearly enough? Try using the horizontal 
and vertical expansion features: 

POKE 53271,1 

That makes it nice and tall. 

POKE 53277,1 

And now it's fat, too. If you POKE zeroes into the same 
location, it becomes short and skinny again. 

Bits to Make Shapes. How does the VIC-2 read the 
sprite shape matrix'? Basically, it reads the matrix the way 
we read books, starting at the upper left-hand corner of 
the sprite shape and reading across to the right; when 
the line ends, it drops down to the left-hand edge of the 
next line. Each of the 24 dots on each row is represented 
by one bit in the sprite shape block. The first byte of 
the block contains the bits that control dots 0-7 of the 
first row of the shape; the second byte, dots 8-15; the 
third byte, dots 16-23. That's all for the first row, so the 
next byte in the shape block controls dots 0-7 of the sec- 
ond row of the shape, and so on, until the 63rd, or sec- 
ond to last, byte of the block controls dots 16-23 of the 
row 20 (the 21st row, since we began with row 0). The 



very last byte of the 64-byte sprite shape block controls 
nothing at all -the VIC-2 ignores it, and so can you. 

The example program Basic Sprites shows how to cre- 
ate sprite shapes quite easily. The routine in lines 800-810 
reads some DATA statements that contain the sprite 
shapes as strings: This is so you can design the shape 
right there on the screen without any complicated graph 
paper calculations. Each string represents one row of the 
sprite shape, with asterisks representing "on" bits and pe- 
riods representing "off bits. The routine breaks the string 
into three 8-characler chunks, each of which corresponds 
to a byte of the sprite shape block. Byte by byte, row 
by row, it reads, converts, and POKEs in the sprite shape. 

Since we're only using two sprites and three sprite 
shapes, they arc being POKEd into the cassette I/O buffer 
at 832 (sprite shape block 13), 896 (block 14), and 960 
(block 15). Thus they don't interfere with BASIC'S pro- 
gram storage above 2048. We aren't doing any fancy 
changing of the video block for this program. 

And once it's SAVEd, you can go ahead and change 
the sprite shapes in the DATA statements starting at 810. 
Just remember that every string has to contain 24 char- 
acters, one for each bit of the sprite's width, and there 
must be 21 strings per sprite, one for each row of the 
sprite shape block. 

Movement. With character graphics we were able to 
move objects around the screen with some good speed, 
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using the PRINT command. However, since a character 
can only be in one 8-by-8 grid or another, each move- 
ment had (o be at least eight dots at a time. It looks jumpy 
and is hard to watch. 

Sprites can move much more smoothly, since they aren't 
mapped onto the text screen . They can move one dot at 
a time, vertically or horizontally, as the program Basic 
Sprues showed. (The program Pig in a Poke moves the 
pig two dots at a time horizontally, to increase the speed; 
that's about as big a jump as you can take without losing 
smoothness. It also moves eight dots at a time vertically, 
so it will always stay in alignment with the character- 
graphics fences.) 

Each sprite has its own horizontal position register and 
vertical position register. These registers start at 53248. 
They proceed in order, starting with sprite O's horizon- 
tal position register at 53248, sprite O's vertical position 
register at 53249, sprite l's horizontal register at 53250. 
sprite Is vertical register at 53251, and so on. 

The registers contain coordinates that correspond with 
dots on the screen. They always specify the location of 
the dot in the upper left-hand corner of the sprite's shape 
matrix. This has nothing to do with whether that dot is 
turned on or not— even if your whole sprite shape is 
crowded down at the bottom of the shape block, the 
VIC-2 will still use the position registers to calculate the 
location of the upper left-hand corner of the sprite shape 
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block. 

A sprite can be half on and half off the display area. 
Whatever part of the sprite is past the edge of the dis- 
play area and into the screen border will seem to move 
"behind" the border -that is, the dots that are off the edge 
of the display area are simply not displayed. 

That's why a sprite with a horizontal or vertical posi- 
tion of is completely off the screen — it's "behind" the 
border. The leftmost position a sprite can have and still 
be completely visible on the screen is 24. The highest 
position is 50. The first position to the right that will 
have the sprite completely off ihc screen is 344, and the 
first position on the bottom that will make the sprite com- 
pletely disappear is 250. (When the sprite starts to dis- 
appear on the right-hand edge or the bottom of the screen 
depends on whether or not it has been expanded in ei- 
ther direction.) 

You'll notice, though, that the horizontal position can 
go well over 255, which is the highest number that can 
be POKEd into a single byte of memory, This means that 
once the sprite reaches horizontal position 255, the hor- 
izontal position register can't possibly move it any far- 
ther to the right- the number 256 cannot be contained 
in the register. 

The VIC-2 gets around (his by putting a sort of Inter- 
national Date Line at position 256. When the sprite reach- 
es that horizontal position, a Hag bit is set Somewhere 
Else, and the horizontal position register starts over at 
0. So to move across the International Date Line, you 
POKE the horizontal register with 253. 254, 255. then 
set the Hag bit, and go on with 0, 1, 2. and so on. 

The flag bits for all eight sprites are in a single regis- 
ter at 53264. Sprite O's Hag bit is bit 0, and so on, as 
with all the other one-byte sprite control registers. If a 
sprite's Hag bit is clear (contains a 0), then the VIC-2 
will count the sprite's horizontal position from far left 
of the screen; if a sprite's flag bit is set (contains a 1), 
then the VIC-2 will count the sprite's horizontal posi- 
tion from the International Date Line right on the screen. 

To handle the horizontal and vertical ranges smooth- 
ly, both the Basic Sprites example program and the Pig 
in a Poke game use three arrays. The array VV(n) con- 
tains all the "valid" vertical locations. In Pig in a Poke, 
there are only 20 valid vertical positions, at every eighth 
row starting with row 53. So in lines 900 and 906, this 
array is set up to have 20 elements, from to 19, which 
contain, in order, the vertical position codes 53, 61, 69, 
77, 85, 93, 101, 109, 117, and so on to 205. Now the pro- 
gram only has to keep track of which of the twenty valid 
vertical positions the sprite should be on, using the vari- 
able VP. Then it sets the vertical positions with POKE 
53248.VV(VP). 

A similar thing is done with the horizontal position, 
except that two arrays are used. The first array, HH(n), 
contains all the valid horizontal position codes for the 
horizontal position register. The second array, HB(riJ. 
contains the flag bits for the register at 53264. Each time 
the sprite is moved horizontally, both numbers arc POKEd 



into the control registers. 

Why both numbers every time? For smoothness. You 
could use an IF-THEN test to change the flag bit only 
when the sprite is actually crossing the International Date 
Line. But in a BASIC program, with its slow POKE state- 
ment, that will mean that the sprite hesitates for a mo- 
ment. By POKEing those values every time, overall 
movement will be slower, but there's no hesitation, (How- 
ever, in either case there will be a bit of blinking at that 
point, because for the moment between POKEing the 
horizontal register the POKEing the flag-bit register, the 
sprite will be completely offscreen. This is avoidable only 
in machine language.) 

Another solution, of course, is to keep your sprites from 
crossing the International Date Line at all. Display some- 
thing else to the right of the line, and keep the sprites 
always to the left. No flicker then! 

Three Dittieasioas. The priority register at 53275 con- 
trols whether the sprite moves in front of objects on the 
screen or behind them. Each bit of the byte at 53275 con- 
trols the corresponding sprite. If sprite O's bit, bit 0. is 
set (equals 1) then the sprite will seem to move behind 
objects on the screen. That is, the sprite will be visible 
whenever it is in front of the background color of the 
screen, but every dot that is on the same spot as a dot 
in a character shape on the screen will be invisible -the 
character shape will seem to be in front of the sprite. 
If bit is clear (equals 0) then the sprite will move in 
front of the character shape as well as the background. 

This lets you create the illusion of three dimensions 
on the screen. However, setting and clearing individual 
bits of the priority register is so cumbersome that in a 
BASIC program you will probably want to set the priority 
once and leave it alone. Only in machine language can 
you fiddle it on and off without slowing down program 
execution hopelessly. 

Collisions. For game programming, one of the most 
important features of sprites is that the VIC-2 automati- 
cally keeps track of whether sprites have bumped into 
each other or into any character shapes on the screen. 
Two collision registers keep track of whether each sprite 
has been involved in a collision since the register was 
last checked. To see if sprite 4 has bumped into another 
sprite, examine bit 4 of the sprite/sprite collision regis- 
ter at 53278. To see if sprite 7 has bumped into any of 
the character shapes (or bit-map designs) on the screen, 
examine bit 7 of the sprite/foreground collision register 
at 53279. 

When does a collision take place? Only when an "on" 
dot in the sprite shape occupies the same screen posi- 
tion as an "on" dot in another sprite or an "on" dot in 
a character shape. If the transparent portion of a sprite's 
shape matrix passes over another sprite or a character, 
nothing happens to the collision registers. Only when the 
dots that are actually displayed come into "contact" is a 
collision reported. 

The collision registers "remember" every collision until 
your program PEEKs (or LDAs or CMPs, in machine 



language) the collision register. This means that you 
should always clear the collision registers by PEEKing 
them once at the beginning of the program, before you 
start checking them in earnest. Also, it means that you 
can't PEEK the sprite/sprite register to check for a colli- 
sion for sprite and then check it again for a collision 
for sprite 1-when you checked it the first time, it was 
erased! That's why you'll want to put the byte in a vari- 
able, like this: Z=PEEK(53278). Then you can check 
the variable Z to test for as many collisions as you want. 

Unfortunately, these registers don't tell you which sprite 
or character shape you bumped into. Of course, if only 
sprites and 1 in the sprite/sprite collision register re- 
port a collision, you can bet they bumped into each other. 
But if sprites 0, 1, and 2 report a collision, you don't 
know if both and I bumped into 2, but not into each 
other, or if they all bumped into each othcr-and it can 
get even more complex. 

To know which sprite was bumped, you either have 
to track the location of every single sprite (in which case 
a BASIC program will crawl along at the speed of a stu- 
dent driver), or you have to decide that all sprite colli- 
sions have the same effect, so you don't care which sprite 
bumped which. 

That's what Pig in a Poke does. Since there's only one 
sprite onscreen, there can't be any sprite/sprite collisions 
at all. And any collision with character patterns has ex- 
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actly the same effect— bouncing the pig toward the top 
of the screen. 

If I had wanted to have characters on the screen that 
the pig could touch at will, then I would have had to use 
sprites for the fences moving up the screen. In thai case, 
sprite/foreground collisions would have been ignored, and 
only sprite/sprite collisions would have mattered. Fur- 
thermore, it wouldn't have mattered which sprite the pig 
bumped into, because any sprite would have the same 
effect. 

Any time it doesn't matter which sprite the player's 
sprite bumped into, collision handling is simple. When 
it does matter, it becomes complex and generally has to 

SPRITE MEMORY MAP 

For easy reference, here are the sprite-control registers in the Com- 
modore 64. For explanations, see the text of the article. 

Floating Memory l^ocatinas 

1016-1023 after the start of screen memory (default 2040-2047): 
The eight shape location registers, (If you're using bit-map mode, 
they can be found at bytes 1016-1023 after the beginning of bit-map 
color memory,) 

0-63: The codes for the possible location of each sprite shape block 
within the video block. The actual address is found by multiplying 
this code by 64 and adding the result to the absolute address of the 
start of the video block. The first 63 bytes of the sprite shape block 
determine which dots will be "on." Every 1 bit causes a dot to be 
displayed; a bit allows the play field display to show through. 

Permanent Control Registers 

53248, 53250. 53252, 53254, 53256. 53258, 53260, 53262: Hor- 
izontal position registers for sprites through 7, in order. 

53249, 53251, 53253. 53255, 53257, 53259. 53261, 53263: Verti- 
cal position registers for sprites through 7, in order. 

53264: Flag-bit register for horizontal position of all eight sprites. 

53269: Sprite enable register. (255 enables all sprites; disables 
all sprites.) 

53271: Sprite vertical expansion register. (255 expands all sprites.) 

53272: Screen and character memory location register. Where 
screen memory is located determines where the sprite shape location 
registers are located. The high four bits are significant for screen 
memory location: 

screen fo«WK*«=<PEEK(53272)AND 240)/16+vfcfco block 
starting address 

53275: Sprite priority register. (0 means all sprites appear in Iront 
of foreground; 255 means all sprites appear behind foreground.) 

53276; Sprite multicolor enable register. (255 makes all sprites 
display using multicolor option.) 

53277: Sprite horizontal expansion register. (255 expands all 
sprites.) 

53278: Sprite/sprite collision register, (0 means no collisions; 
PEEKing this location clears the register.) 

53279: Sprite/foreground collision register. (0 means no collisions; 
PEEKing this location clears the register.) 

53285: Sprite multicolor register 0. controlling the color of 01 
bit-pairs. 

53286: Sprite multicolor register 1, controlling the color of 11 
bit-pairs. 

53287, 53288, 53289, 53290, 53291, 53292. 53293, 53294: Sprite 
color registers for sprites 0-7, in order. Default colors are white, 
red, cyan, purple, green, blue, yellow, and medium gray (In multi- 
color mode, these registers control the color of 10 bit-pairs.) 

53276: Video block selection register. Bits and 1 determine which 
video block the VIC -2 chip will read. 
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be handled in machine language. 

Other Features. Sprites have several other possible 
features, which I'll discuss in later columns, like multi- 
color display. These features have their own registers, 
which arc mentioned in the Sprite Memory Map but not 
explained here. 

The sprites' colors are controlled by eight sprite color 
registers; however, the 64 automatically assigns eight dif- 
ferent colors to the sprites when the machine is turned 
on, and the example programs don't change them. If you 
want to, however, just POKE into them the number of 
the color you want, from to 15, just as you do with 
the background color register at 53281. The sprite color 
registers are located at 53287 through 53294. 

Also, there are advanced techniques like animation 
(shape-flipping), rotation, and complex sprites, which 
we'll go through in the next couple of months, including 
an interrupt-driven machine-language routine that will 
allow you to speed up sprite movement drastically while 
still controlling it all from BASIC. 

HOW PI© IH A POKE WORKS 

In th meantime, though, let's go through Pig in a Poke 

section by section in order to see exactly what's going on. 
The Variables. One of the most confusing things in 

studying somebody else's program is to try to remem- 
ber what all the variables mean. So here is a list of the 

major variables used by both Pig in a Poke and Basic- 
Sprites: 

VB Address of the video block 

SB Address of screen memory 

BB The screen memory page number (used by BASIC 

LT(0-7) The address of" each sprite's shape location register, 

located starting at byte 1016 after the start of screen 
memory. 

CT(0-7) The address of each sprite's color register. 

HT(0-7) The address of each sprite's horizontal position reg- 

ister, 

VT(0-7) The address of each sprite's vertical position register. 

HR The address of the flag- bit register for horizontal 

movement across the "International Date Line." 

ES The address of the sprite enable register. 

VE The address of the vertical expansion register. 

HE The address of the horizontal expansion register. 

PR The address of the priority register. 

EM The address of the multicolor enable register. 

MR The address of the first multicolor color-selection reg- 

ister. 

CS The address of the sprite/sprite collision register. 

CF The address of the sprite/foreground collision regis- 

ter. 

BS(0-7) The bit -set values for each sprite. 

BC(0-7) The bit-clear values for each sprite. 

ST (ft) The codes for the location of each sprite shape block; 

these numbers arc POKEd into the sprite location 
registers at LTfuJ. 

NS The number of sprite shapes, minus 1. 

VV (nj The vertical position array ; these values are POKEd 

into the vertical position registers at VTfnJ. . 

HH(») The horizontal position array: these values are 

POKEd into the horizontal position register at HT(n). 

HB(;i) The horizontal flag-bit array; these values are POKEd 

Cant inn eel an page 75 
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By Kevin Dewey 



In this educational game for children ages 
eight through twelve, the player is in con- 
trol of a group of ten fishes that must be 
led to the top of the stream safely and with 
the right amount of food in their tummies. 
The player figures out how much food each fish requires 
by working out a simple multiplication problem at the 
bottom of the screen. He then leads the fish up the stream, 
gobbling up food as he goes, and avoiding the shark 
known as Gums. Contact with Gums makes you into 
shark- bait. 



CONTROLLING THE FISHIES 

Controlling the fi shies is a very complex process to 
learn, but very easy once you get the hang of it. There 
arc only two keys — for right and left. The CRSR keys 
arc used. CRSR UP/DOWN moving the fishy left and 
CRSR right/left moving the fishy right. Doesn't sound 
too complex, does it? But your fishy is always moving 
up, almost automatically, except when you are pushing 
down a CRSR key. So if you have a lot of food to eat. 
you'd better not go too long without moving right or left, 
or before you know it, you'll be on the top of the screen, 
with far less food than the fish requires. This problem 
can be solved, however, by scrolling off the side of the 
screen and moving down. You only move down on the 
right side. If you scroll off the left side, you move up. 
So if you're too close to the top of the stream with not 
enough food, you can head back down if you keep go- 
ing right. 

Another key that comes in handy is SHIFT/LOCK. 
This pauses the game, allowing the player to think over 
the multiplication problem presented, or the best way to 
avoid Gums, whichever is most pressing at the moment. 
Play is resumed by depressing the key. 



SCORING 

For every fish brought to the top safe and well-nour- 
ished, a point is added to your score. For every fish ei- 
ther overfed or undo fed. a point is taken away. If Gums 
gets a fish, the game ends. 



A FEW WORDS ON EDUCATION 

The educational emphasis in this game is on teaching 
basic multiplication facts. I had originally chosen to make 
it an addition game, but chose not to when I realized 
the arcade element of the game might become frustrating 
for the younger set of children. 

Instead. I chose multiplication because older children 
can appreciate the challenges of an arcade game while 
learning, instead of becoming frustrated by it. The game 
really is quite hard to master, and though children may 
not realize it, they arc being drilled in multiplication skills 
as they play. QSEE PROGRAM LISTING ON PAGE 110 
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COMPUTEREYES " 



VIDEO IMAGES ON YOUR COMPUTER! 

Finally— t in inexpensive w?y to capture real- world images on your computer" *s 
graphics dispiayl COMPUTEREYES'" is an innovative slow-scan device that con. 
nects between any standard video source (video tape recorder, video camera, 
videodisk, etc | and your computer Under simple software control, a bf w image 
is acquired m less tnan six seconds. Unique murti-scan modes also provide 
realistic grey-scale images Hundreds of appricationsl 



Package includes interface module, com- 
plete easy-to-use software support on 
disk, owner's manual, and one year 
warranty all for ST2995 plus S4.00S&H 
(USA] 

Also available as a complete package 
including 

• COMPUTEREYES'" 

• Quality cm w video camera 
■ Connecting cable 

Tar only 1399,95 plus S9.00 SSH 

Demo disk available for Stfj.OO postpaid 
[refundable), 

See your dealer or order direct. Mass. 
residents add 5% sales tax. Mastercard. 
vV,ii arrepted. To order, or for more 
Information, write or call 




o^y $129.95 



Available for. 

• Apple ff series 

• Commodore 641 123 

• Atari 800f800Xtl65XE/ I30XE 



DIGITAL VISION, INC. 

MOakSrret — Suite 2 

Meedbam. MAO! 1 9! 
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AHOY! POCK 

A Mini Database Manager 

for the C-64 



By Glenn Lumpkins 




ow many limes has this scene been played? 
Your latest issue of Ahoy! arrives with 
the mail. You flip through the pages think- 
ing: boy-these-are-great-programs, the ads, 
all-those-helpful-hints, and the many other 
inspiring articles. I'll read this issue and type in the pro- 
grams when 1 have time to really concentrate. For now, 
I'll make some mental notes about this issue. You now 
add this issue to the month's stack of magazines which 
sit on top of last months stack, which sit on top of the 
previous month's stack, and so on. 

When was the last time you went to that stack of ma- 
terial needing a routine, a helpful hint, an item, or an 
article on a specific subject? Pulling issues out of the 
stack and scanning their indexes, you think to yourself: 



THE AMAZING VOICE MASTER 




Three Exciting Products in One: 

• Speech Synthesizer — Your Computer can talk to you in 

your own voice. 

• Word Recognition — Make your computer respond lo 

your spoken commands. 

• Voice Harp — A totally new musical instrument that you 

play and compose by humming. 

Based upon new technologies invented by COVOX. Per- 
formance is equal to other systems costing thousands of 
dollars more. One low price buys the entire system. 

ONLY $89.95 (suggested retail) 
Available from your dealer or by mail. When ordering by mail, please 
include $4.00 shipping and handling ($10.00 (or foreign orders). 
Call (503) 342-1271 lor a telephone demonstration and ordering 
information VISA or MC accepted. FREE brochure available. 

COVOX iiNC. 

675-D Conger Street, Eugene, OR 97402 

Telex 706017 (AV ALARM UD> 
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"One of these days I've just got to get this stack organ- 
ized. But the issues keep piling up higher and there seems 
to be no end to it . There must be a magnetic quality to 
the computer desk, as everything seems to gather there. 
Maybe tomorrow I'll get started." 



HELP IS ON THE WAY! 

I wrote Ahoy! Dock because I receive and save sever- 
al computer publications each month. More than once 
I have tried to catalog and file these issues, all to no avail. 

Now with Ahoy! Dock and a 1541 disk drive. I have 
an index of every article in my issues that I might ever 
want to use or read. Ahoy! Dock allows me to add to 
my file at any time, search for a program or articles, de- 
lete old items, modify the file, print or list the files, and 
sort the file on multiple fields. It now takes minutes in- 
stead of hours to find the information I need and my desk 
is much neater, thereby allowing me more computer time. 

Ahoy! Dock is simply a mini-database manager de- 
signed for use with an auxiliary storage device and a flop- 
py disk. It will allow you to index information accord- 
ing to 14 categories, with each category containing 500 
independent records. With its simple menu operations, 
the program is as easy to use as pressing the function keys. 

When you run Ahoy! Dock, you'll see a main menu. 
Step-by-stcp instructions are asked for by each of the 
menus, with every attempt made to prevent an incorrect 
entry. If all else fails, at any point of entry a 7" will al- 
low you to escape back to the main menu. 

When you select an option from the menu, a submenu 
of categories will be read to the screen for you to choose 
from. When you select the ADD option and a category, 
the program will direct the computer to read the error 
channel from the disk drive to see if that category ex- 
ists. If the category doesn't exist, you are asked to create 
the file or return. Choosing the create option will ini- 
tialize that file. 

With just a little of your time, you'll soon have a com- 
prehensive disk file that will index all the magazine ar- 
ticles and programs you wish. 

Ahoy! Dock was written for computer magazines. You 
can easily alter it for any type of publication by chang- 
ing the data subject categories and the program lines. □ 
SEE PROGRAM LISTING ON PAGE 103 
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Seeing 
Is Believing 



I don't have enough time orspace to listall the good points!" -noiand Brown, midmte software gazette 

"This disk is fantastic!" -- Tom Lynch, WE USERS PORT 

"Why all the enthusiasm? Because CONALis a composite of the best features of the most popular 

programming languages... the familiarity of BASIC commands with the structural programming 

environment of Pascal and the turtle graphics of Logo." - Mark Brown, info m 

COIiAL was just what 1 was looking for." -- Colin Thompson, run 

Seeing is Believing. Take a look at what COPIAL has to offer: 

the complete COMAL 0.14 System for Commodore 64™ includes the 

Tutorial Disk* (teaches you the fundamentals of COMAL), plus 

the Auto-Run DENO Disk* (demonstrates 26 COMAL programs 

including games, graphics, sprites and sounds), 

all for just $7.00! 

You can add the reference book, COMAL from A toZ, 

for just $4.00 more. 

$7 or $11 -- either way you're a winner! 

"Everybody Who gets it, likes It! (I'll guarantee it.)" -Len Lindsay, President, COMAL Users Group 



Calf TOLL-FREE: 1-800-356-5324 ext. 1307 

VISA or MasterCard Orders ONLY. 

Questions and information must call our 

Info Line: 608-222-4432. 

All orders prepaid only - no C.O.D. 



Send check or money order in US Dollars to: 

I^V , COMAL USERS GROUP, U.S.A., LIMITED 

•>, V 6041 Monona Drive, *1 11, Madison, Wl 53716 

VX? phone: (608) 222-4432 



■ rroqrdtns hill come on 7 disks or 1 double sided disk r.nh dbk Includes CO PML 
Commodore 64 is a trademark of Commodore £ tectronlcs 
R««d«r Scrvicn No. 1SS 
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THE COPY PROGRAM 

• EXACTCOPIESINONLY 
21 SECONDS 

• SIMPLE-FULL BACK-UP IN A 
SINGLE KEY STROKE 

• RELIABLE— WORKS 
VIRTUALLY EVERY TIME 
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Because upon starting the Commo- 
dore, RND(l) always produces the 
same series of random numbers, and 
because RND(O) is rather suspect, I 
use one of the following lines in pro- 
grams that use random numbers: 

100 R = RND(i): GET A$: IF 
A$="" THEN 100 

or 

100 R = RND(l): IF (PEEK(5 
6320)AND15)-15 THEN 100 

Depending upon the length of the 
pause, line 100 will generate a vary- 
ing number of random numbers, 
which changes the starting point for 
the scries of random numbers used 
in the program. The moie often the 
program can zero line 100, the bet- 
ter, -Jacqueline L. Callaway 
Orange Beach, AL 

I would like to address an article 
in the May issue of your fine maga- 
zine: Disk Spinners, Part //by Mor- 
ton Kevelson. I have used all three 
of the referenced devices. 1 purchased 
the 1541 Flash after reading the arti- 
cle and cannot offer enough praise for 
this tine product. 

I have the updated model with the 
switch on the disk drives (2). I have 
been using the Flash for about a 
month and have found only two 
games that will not work with the 
Flash installed. 

I use word processors and PFS 
(File & Report). I have found that 
with the Flash installed it is a plea- 
sure not waiting between searches 
during file update and printing. 

On the Commodore I have, the 
Kernal ROM was soldered in and did 
require the tricky removal of the old 
Kernal to install the socket furnished 
with the kit; after this was done the 
rest of the modification went with- 
out any problems. 

I would like to thank Mr. Kevel- 
son for his article and Skyles Elec- 



tric Works for their product. 

- David J. Farrcll Sr. 
Enfield, CT 

I recently purchased the Fast Load 
cartridge from Epyx. One of the first 
programs that I tried Fast Load on 
was Microsoft's Multiplan for the 
C-64, Multiplan is a superb spread- 
sheet, but frustratingly slow. When 
I attempted to save some changes to 
my data disk. Fast Load restructured 
my files so that I could not retrieve 
them. 

I called Epyx to find out what hap- 
pened. The gentleman I talked to said 
the problem was relative files. His 
belated advice was "don't use Fast 
Load on any program containing rel- 
ative tiles,"' 

In all the reviews that 1 have read 
in your magazine and others, no- 
where is this problem mentioned. 
And nowhere are there any warnings 
about potential problems like this. 

Please address this problem for my 

benefit and the benefit of all your 

readers. —Edward S. Champa 

Indianapolis, IN 

Scuttlebutt would be even better if 
it incorporated, though in abridged 
form, the same thoughtful judgment 
that's found in your Reviews section. 
Any chance of that? -Mel Getty 
Orono, ME 

Not if we want to keep Scuttlebutt 
the most current— as well as complete 
— Commodore news section on the 
stands. We announce new products as 
soon as we learn of their existence. 
Waiting for miew samples would make 
our news section yesterday's papers. 

We incorrectly listed the address 
and phone number of Navaronc In- 
dustries. Inc. on the back cover of our 
August issue. Correct address and 
phone number are: 

Navarone Industries, Inc. 

19968 El Ray Lane 

Sonora, CA 95370 

Phone: 209-533-8349 
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A 20-Seeond Formatter lor the 1541 

By Don Lewis 



Fasmew is a fast disk formatting program. 
The 1541 has a built-in command for for- 
matting, i.e. NO:(diskname,id). So why a 
special program? Because Fastnew im- 
proves on the 1541 resident formatter in 
three important areas: 

a. Speed. The normal format takes about 90 seconds. 
Fastnew formats a disk in 20 seconds. 

b. Reliability. The normal format routine includes a 
verify. Unfortunately, this verify has a bug in it which 
allows some format errors to go undetected. Fasmew has 
a correct verify, insuring error-free formatting. 

c. NO Head Bang. The normal format kills 1541s. Ev- 
ery time you use the normal format, the read/write head 
is BANGed against a hard slop in the drive. Eventually 
this will throw the disk out of alignment, and cost you 
an expensive repair. Fastnew never bangs the read/write 
head when formatting. 

Fastnew consists of three sections, a BASIC portion 
and two machine language (ML) routines. The BASIC 
code handles screen output and user input. One ML rou- 
tine is a fast memory mover used to transfer code from 
the 64 to the 1541. The other ML section is the format- 
ter proper. It is transferred to the 1541, then executed us- 
ing an M-E command. This code relies heavily on sub- 
routines in the 1541 ROM's to perform the formatting. 

When typing in Fastnew, be sure to double (and tri- 
ple) check the data statements at lines 4000-4999 and 
5000-5999. Make sure you save a copy to disk before 
running the program. Until you get a completely work- 
ing Fastnew, be prepared to quickly turn your disk drive 
off. Typos in the data statements can cause the 1541 to 
really go wild. 

Source code for the 1541 resident code is available for 
$8.00 postpaid from the author (see address below). Care- 
ful study of the source code will suggest all sorts of pos- 
sibilities for custom formatting, such as varying data or 
header block lengths, extra tracks or sectors, and record- 
ing density shifts. Custom formatting has been where 
most copy protection schemes originate. 

Fastnew is faster because it avoids a lot of the work 
the normal format does, without compromising integ- 
rity. When formatting a disk the 1541 normally does quite 
a bit of work. First it writes 10250 S55 bytes (non-synch 
marks) to the disk. Then it writes an alternating pattern 
of $55 and $FF (synch marks) bytes to the disk. It then 
reads the track and counts how many synch and non- 



synch marks were actually written on the track. From 
these counts, it calculates the optimal inter-sector gap 
length. The goal is to divide the track into evenly spaced 
sectors. The actual number of bytes written out as the 
inter-sector gap depends on the length of the track (track 
35 is shorter than track 1), the number of sectors on the 
tracks, and the speed of the disk drive, which may vary 
from day to day. After calculating the inter-sector gap, 
the actual formatting is done. The header block and a 
dummy data block are written out for each sector on the 
disk. The Read/Write head is then stepped to the next 
track and the process repeated. 

In practice all this work isn't necessary. There is no 
reason to try to get an even sector distribution around 
the track, provided there is enough space for all the sec- 
tors. It is important, however, to have some gap between 
the end of one sector and the start of another. If a gap 
did not exist, you'd run the risk of having a data block 
write into the header block of the next sector, causing 
a disk error number 20. This could happen if the speed 
of the disk drive varies from day to day. 

Rather than go through all the calculations described 
above, Fastnew assumes that a gap of 8 bytes between 
sectors is sufficient. This is based on an examination of 
the inter-sector gaps on a number of normally formatted 
disks. 

Head bang occurs when the R/W head is pulled back 
to track 1 by the normal format routine. The normal for- 
mat assumes that the head is as far away as possible and 
steps the head back 45 tracks— BANG!! However, pro- 
vided that the disk drive has accessed at least one prop- 
erly formatted disk, the current position of the R/W head 
can always be found at memory location S22, Fastnew 
reads this location and calculates the necessary steps to 
pull the head to track 1 with NO bang. 

As I said, Fasmew makes one assumption, that the disk 
drive has previously accessed a properly formatted disk. 
(A small price to pay for extending the life of your 1541 
disk drive.) 

I hope that you will find Fastnew a useful utility. I would 
like to extend my appreciation to my colleagues at R. 
J. Drachmas Assoc, Inc. for their assistance in devel- 
oping this program. I welcome correspondence from 
readers. Write to Don Lewis, RO. Box 521, Folsom, PA 
19033. Please include a stamped and self-addressed en- 
velope if you desire a reply. □ 

SEE PROGRAM LISTING ON PAGE HI 
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All of Michael Montauck's 
(Brooklyn, NY) images 
were created with the Ko- 
ala Pad and Koala Painter 
software; his representa- 
tions of CIS (the Compu- 
Serve Information System) 
and Graffiti (bottom), and 
the swinging cats at Ahoy! 
(bottom right, page 35). 
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Contributors to Ahoyl's Art Gallery will receive roy- 
alties based on the sale of disks containing the best 
computer graphics received, both published and un- 
published, Send your best work on disk, accompan- 
ied by a stamped and self-addressed mailer, to Mor- 
ton Kevelson, P.O. Box 260. Homecrest Station, Brook- 
lyn, NT 1122°. Indicate the drawing package that was 
used to create the image. If you employed a bit map 
of your own design, indicate the appropriate file 
parameters, i.e., hi -res or multicolor, location of bit 
map, screen or color data. 
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computer artists, John Matthews Jr. (San 
Antonio, TX) indicates that he is starving, 
but only for attention. Hence his choice of 
attention -getting celebrities for his images, 
all created on the Koala Pad. Betty Do op 
(right) and charter Gremlin Gizmo (below) 
were drawn freehand, pixel by pixel, using 
Koala zoom mode. Yosemitc Sam (left) was 
drawn freehand, based on a grid designed 
to proportion the screen pixels to match the 
proportions of the Okimate TO color printer. 
(The proportions actually look better on the 
printout than on the screen shot shown.) 
John digitized his image of Jane Russell 
(above) with Compute reyes (see review, p. 
66) and added finishing details fay hand. 
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MSD Sure Copy 

At last a complete utility package for the MSD Dual 
Drive, This is the first MSD utility program that does 
it all. The main menu options include: 

Sure Copy will put all errors automatically on disk: 20,21, 
22, 23. 27 and 29's. 



• Copy Protected Disk 

• Copy Files 

• Format a Disk 

• Change Disk Name 

• Quit 

• Copy Unprotected Disk 



• Scratch a File 

• Rename a File 

• View Directory 



$ 39 
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TOP SECRET STUFF I 




CMS 

■ Vi Track Reader 

■ Vi Track Forma tier 

- Drive Mori 

■ Tho Doc 
Sync Make i 
Sync Reader 

- Change Drive No. 
Dlik Logger 
Disk Match 



— Naw Wedge 

— ID Chick 

— Umcralch 

— View RAM 

— Read/Write Teit 

— Repair a Track 

— Fail Format 

$19.95 



TOP SECRET STUFF II 

All C128 Compatible 



— Spill Screen i (Hofti on lolly) 

— Smooth Scrolling 

— Save Ram From Under Roma 

— No Drive Rattle On Error* 

— Triple Drive Head Speed 

— Auloboot Maker 

— Koala Screen Dump 

— Display GCFI 

— Faal Dlfk Eraitr 

— Protect Schema For Your Diiki 



— Writ* Protect Dlak 

— Unwrlle Protect Dlak 

— Mini D.O.S. Wedge 

— Fail Dlikmatcher 

— Data Statement Maker 

— Unnew 

— 3 Minute Copy 

— D.M.S. 



$ 19 
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WAR GAMES 
AUTODIALER 




i Auto Dial will automatically dial a set Ol numbers you Choose. 
2~R*view Numbers will review numbers Ih&i were answered &y a computer 
3-Sftve Numbers w.n save numbers whare a computer answered 
4-Hirdcopy of Numb*™ will prin, oul till ot numbers wiwe a compter answered 
5 -LOAD Numbers will load in numbers to continue where il left off 
6-Contmue will pick up dialing where it was interrupted 



$29.95 
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D-CODER 

• Translates any machine language program into easy-to- 
read English descriptions with complete explanations ot 
each command! 

• Makes complete notations of all important memory 
locations accessed by the program! (SID, VIC, MOS, 
KERNAL, etc.) 

* Gives you three ways ol accessing programs: 

1) Will read and Mat program! from DISK 

2) WIN read and lul program! from MEMORY 

3) Direct uiar Impul (Irom magazines, etc.} 

* Can be used to locale and examine any machine 
language program's protection routines! 

* Can be used to easily break apart machine language 
programs for study and examination! 

• Printer option lor complete hard copy listings 1 




You Now Longer 

need to be an 

EGGHEAD to 

read Machine 

Language. 



s 19 
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3rd 

Edition 



N-CODER 



The perfect companion 
program to D-CODER! 



THIRD EDITION! NOW AVAILABLE! 
I! you're tired ol being harassed by protected software and loo many copy 
programs, then this is the book tor youl This 224 page manual covets Ihe 
gambil Irom legalities lo protection melhods to step-by-step back up pro 
cedures. Now you can learn both how to protect and unprotect software 
The techniques covered include copying cartridges to tape or disk, tape pro 
tection, and disk proteclion Disk protection covers error no s 20. 21, 22. 23 
27 and 29 plus single track formatting, header modification, header swapp 
mg, half track reading and vvrting, reading and writing modified bit densities 
lormatting illegal tracks/sectors, sync writing and more! The Third edition ex 
plains, tells how lo detect and how to write Ihem with included software 
Eleven useful utilities and many prelection listings! Our disk analysis programs 
reveal the protection melhods used on your originals A diskette with all soft- 
ware is available for a minimum antra charge. This may nol tie Ihe only book 
your should have lor Ihe C-6A, bul it is certainly the one Book you should 
not be without! 



the machine 

language manipulator... 

Allows you lo easily make changes in machine language 

programs ,. right on the disk! 

• Rewrite ability allows code to be altered and I hen 
rewritten directly to the disk! 

• Features sector- by-sector scrolling assembly language 
display ot machine language programs! 

• Notation ol ASCII text equivalents tor easy spotting of 
embedded text strings! 

• handy reference display of all assembly language 
commands and their ML numerical equivelentsl 

• Byte splitter for easy splitting of decimal addresses into 
low byte-high byte format! 




$ 19.95 



CM Book only 

Book i Disk of all programs 

Vic 20 book Cart & Tapes only 



SI9 95 US 

$29 95 US 

$9 95 US 



THIS MANUAL DOES NOT CONDONE PIRACY 
•SHIPPING $2 00 



Bulletin Board 

S tt up tnd opt/ ttt v ou/ owfl Ov II* r i n Pot to wt r h o n 
or rwo 0>tk driutt Tftis on* ntl all ma ttttu/tl tnd 
you can cuilorn .■* if tw/y yourttlf 



l-RUN MEGASOFT-BS5 

2. CREATE MEGA FILES 

3. ADO TO SVSOP'S CORNER 

4 NEW SVSOP'S CORNER 

5 HEAD MESSAGES 
6- SCRATCH MESSAGE 
7-CVCLE MESSAGES 



$ 59.95 



S READ SYSOP MESSAGES 
9-WRITE OPENING MESSAGE 
10 READ LOG 
11. CYCLE LOG 
12. READ DOWNLOAO FILE 
V3SCRATCH DOWNLOAD FILE 
M-ADD TO OTHER SYSTEMS 
1S-CHEATE OTHER SYSTEMS 



BBS 




Leveled Access 
Private Message Base 
Up to 300 Passwords 



Expert Mode 

Open Chalk Board tor 

Highest Level Access 



Enclose Cash 


ers Cnec* Mori*? Ord*' Of PtfS&ia 


Choc* 


AMQlrV 


14 aa^s rcw aeimery 2 to f day* fa* 


p horn a Otters 


Canada o'derj muifl d# >n u S 


DoKtH 


VISA 


- MASTERCARD - COO 


Progrufni tot C-64 *?00 S A H on an orders 



-z MegaSoft 

N "v J P O Box 10B0, Battle Ground, Wa 



Limited 



Softwif* Sufimltilont In.ilid 



P O. Box 10B0, Battle Ground, Washington 98604 

Phone (206) 6B7-51 16 • BBS 687-5205 Aim Hours ComjuiiMo compute 



Reader Service No. 143 
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Tumbling Dice 
Pata Structures 

BY DALE RUPERT 



The next roll of the dice may determine your 
future. Three dice rattle in the cup. The ques- 
tion is this: What is the probability that you 
will roll an eleven? You confidently reach for 
your portable computer and quickly load the three-dice 
simulation program. Within moments it has calculated 
the answer to this final question on your statistics exam. 
This article will not reveal the answer to the question. 
We will develop some programs to solve it, though. We 
will also look at a loftier topic than dice rolling, called 
data structure. The data structures of a program affect 
its speed, versatility, and debuggability. We will look at 
some of the tradeoffs of using different data structures. 



As we saw last month, there arc essentially three ways 
to determine probabilities: (1) formula evaluation, (2) ran- 
dom simulation, and (3) enumeration. It is very unlikely 
that any reference book contains the formulas of specific 
outcomes for the roll of three dice, so Method 1 is no 
good for solving our problem. This month we will devel- 
op procedures for implementing Methods 2 and 3. 

Method 2 is sometimes referred to as a Monte Carlo 
approach. It is often used when the total number of pos- 
sible outcomes is so large that it is impossible to list them 
all. Method 3 lists all possible outcomes and is feasible 
only in cases where that number is small enough and de- 
terminable. 
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EFFECTIVE 



Shadow is a new and revolutionary 
way to duplicate even your most ^ 

protected software, it encom pases all 
the latest advances in software, as well 
as a highly sophisticated piece of hardware. 
This is absolutely the best utility available 
today. "It will even copy the other copy 
programs." Because of Shadow's unique 
abilities, we feel DOS protection is a thing of 
the past. 

By the time you place your order we expect the 
Shadow to copy 1 00% — that's right, 1 00% — of all 
software available for the C-64. 



Order by phone 24 hrs 7 days of send cashiers check/money order 
payable to Megasolt. Visa, MasterCard include card # and exp. date. Add 
$3.50 shipping/handling for continental U.S., $5,50 (or UPS air. COOs add $7,50. 
Canada add $10.00 Other foreign orders add $15,00 and remit certilied U.S. funds 
only. Distributors invited and supported. 



T 



PO. Box 1080 Batlte Ground, Washington 98604 

06)687 SI "i • l!f!;'. BB7 5205 AMer-HwreCow&te^toiConipuler Ordering 
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It is easy to calculate all possible outcomes for three 
dice. These nested FOR-NEXT loops generate every 
combination: 



FOR B=l TO 6 : FOR C=l 



10 FOR A=.l TO 6 
TO 6 
20 PRINT A;B;C 
30 NEXT C r B,A 



Instantly the most tedious part of statistics class is elim- 
inated! You might send this output to the printer. Then 
you could Find the sum of each triple and keep track of 
how many of those totals equal the desired value. The 
probability of rolling an eleven is the quotient of the num- 
ber of "successful outcomes" divided by the number of 
possible outcomes. Here a successful outcome is one in 
which the sum of the three dice is eleven. 

Of course we will let the computer keep track of the 
sums and any other information about the dice that wc 
desire. But before we proceed with this enumeration pro- 
cess, let's try the random simulation method. 

ON TO MONTE CARLO 

Very little work is needed to simulate and analyze the 
rolling of three dice, as the Dice Simulator program on 
page 99 shows. Random values from 1 to 6 are chosen 
for each of the dice. Their total value is calculated and 
compared with the desired value. If their sum is eleven, 
the variable GOOD is incremented. The variable N keeps 
track of the total number of rolls. The number of "good" 
rolls divided by the total number of rolls .should approach 
the probability we are looking for. Line 70 displays 100 
times this probability, giving us the percent probability. 

Supposedly the longer this program runs, the closer 
the result comes to the theoretical value. Of course it 
is possible that the first three dice we roll have a sum 
of eleven, giving a 100% probability. On the other hand, 
we may roll 100 sets of dice before getting a sum of ele- 
ven. Neither result is very accurate. Only after numer- 
ous rolls with a good random number generator will the 
results settle down to a value close to the true value. 

We have seen in previous articles that the random num- 
ber generator in our microcomputers is not truly random. 
The non-randomness may cause the program to "home 
in" on an inaccurate value. Using an imperfect random 
number generator is equivalent to rolling loaded dice. 
I suggest that you run the Dice Simulator program to see 
if you can determine the actual probability before you 
evaluate it exactly in our next program. 

The disadvantages of using this Monte Carlo method 
should be clear. It may require a fair amount of time to 
arrive at a reasonable value. Also, it may be difficult to 
know how reasonable the value is. If the random number 
generator is not very good, the answer may not be very 
good either. 

The main advantage of this method is that you don't 
have to be able to list all possible outcomes or even know 
how many there are. For simulating radioactive decays 



and molecular motion (topics for next month), this is cer- 
tainly a desirable characteristic. 

You can easily modify the Dice Simulator program to 
answer other questions, such as: 

1) Are you more likely to roll a seven or an eleven with 
three dice? 

2) What is the probability of rolling a total value great- 
er than fifteen? 

3) What is the probability that the value on one die 
equals the sum of the values on the other two dice? 

4) Is there a fifty percent probability that all three dice 
show an even number? 

Use your intuition to make a guess on each of these be- 
fore running your program. Probabilities are not always 
intuitive. 

To help you get started on Problem 1, you might add 
this line: 

65 IF TTL=7 THEN G2=G2+1 

Also change line 70 to print the value of 100*G2/N next 
to the other probability for a side-by-side comparison. 

MORE SOPHISTICATION 

The bare-bones Dice Simulator program uses the most 
basic data structure, simple numerical variables. The next 
program goes to the other extreme. It contains numeri- 



J BridgePro® J 



BridgePro is the lirst program I've seen that provides a challenge 
(or the average-to-excellent bridgo player. . .The documentation is 
excellent and allows a new bridge player to learn the basics. 

— Harvey Bernstein. Antic Magazine, Feb. 1985 

After having tried three other bridge programs, I tind that BridgePro 
is indeed a pro game It is designed for both the beginner and the 
advanced playor. . . I didn't tind anything that could be improved upon. 

— Helen Qarret. Apple-Dayton Journal, March 1985 

It you like to play bridge and don t have three other players ever- 
eager to play, this software is a must. For bridge freaks it's good 

enough to justify buying a computer 
. . Whether you are a "master" or a 
beginner, this is great software 
-Christian Basler, NY 
Commodore Users Group 
A\ ' "J Review. Sept. 1984 

f Join 




Join us 

for Bridge 



BridgePro is designed to let you learn, 
improve, or just enjoythecard game ol 
bridge. The program provides com- 
plete bidding, play and scoring for 1 or 
2 players. Features include random 
hands, bidding help, demonstration 
mode, hand replay/quit, best hand, 
auto finish, duplicate mode, and fast 
machine language speed. 



(tOC CA Residents edd S2 eg Sales Tax 
4>vJ»J Mtl jj lor COD /UPS 2nd Day Air 
DISK VIS A/MasterCard Welcomed 

Commodore 64 • Atari 
Apple II • IBM PC/PCjr 



Monoy Back Guarantao 
24 -Hour Toil Free Orders 
1-BO0-443O100 out. 158 

Computer Management Corp. 

2424 Ex bourne CI 

Walnut Creek. CA 94596 

Denier Inquiries Invited 



Header Service No, 117 
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cal arrays which are indexed by other numerical arrays. 

When three dice arc rolled, there are 216 possible out- 
comes. Each die may have any one of six possible values, 
and 6*6*6 is 216. The computer can readily handle this 
many items. The program Dice Analyzer {on page 99) 
generates all of the 216 outcomes and stores the values 
of each of the dice in a numeric array. This program an- 
alyzes the probabilities of various events by the exact pro- 
cess of enumeration. Once the list of outcomes is deter- 
mined, the computer may look through the list, identify- 
ing "successful" outcomes and calculating the desired 
probabilities. A .successful outcome is one which meets 
certain criteria, such as the sum of the three dice being 
eleven. 

The value of each die for every one of the 216 possi- 
ble outcomes is stored in the numeric array ROLL(N.D) 
where N is the outcome number (1 through 216) and D 
is the die's identifying number (i through 3). If ROLL(7.2) 
equals 4, then the value of the second die is four on the 
seventh roll of the dice. If the third die had a value of 
five on the twentieth roll, then ROLL{20,3) equals 5, 

In addition to keeping track of each die's value, the 
program stores the count of each face value for every 
roll in the numeric array CT(N,V). Again N is the out- 
come number, and V is the face value (1 through 6). If 
CT(9,2) = l, then only one die had a value of two in the 
ninth roll. If no dice had a value of two in the 2I6th roll, 
then CT(216,2)=G. 

One other numeric array is filled as the various out- 
comes are enumerated. The array TTLfN) stores the sum 
of the three dice on the Nth roll. If TTL{40)=7, then 
a total value of seven occurred in the fortieth roll. 

Lines 40 through 110 enumerate the outcomes and fill 
the arrays. This program determines exactly the proba- 
bilities that 

1) Three ones are rolled. 

2) At least one three and no sixes are rolled. 

3) No twos arc rolled. 

4) The sum of the three dice is eleven. 

This program is actually "overkill" for the sake of il- 
lustration. It is certainly not necessary to set up such a 
complicated set of arrays in order to find these proba- 
bilities. We could keep a tally of all successful outcomes 
as the values are generated in line 60. In fact, the simp- 
ler method would run more quickly and use less memory. 

Why bother with this more complicated program"? With 
the more sophisticated data structure we gain greater case 
of analysis and greater flexibility in displaying the re- 
sults. To implement Test 2 listed above with the simpler 
structure, we might have to use line 65 such as: 

65 IF (A=3 OR B=3 OR C=3) AND (A<>6 AND 
B<>6 AND C<>6) THEN T2=T2+1 

This is somewhat more cumbersome than the correspond- 
ing statement in line 150: 

150 IF CT(N,3)>=1 AND CT(N,6)s0 THEN T2= 
T2+1 



Try to determine the probability that exactly one three 
and no sixes are rolled. I don't think such a test could 
be contained in one line with the simpler data structure. 
(Let me know if I'm wrong!) Line 150 could be easily 
modified by removing the "<" to perform such a test. 
The ROLL array is needed only if selected outcomes 
are to be listed, as was done for Test 4. RNUM(M) keeps 
a list of all the roll number indices which satisfy Test 
4. For example, if the twentieth roll had a sum of ele- 
ven, and if four previous rolls also had sums of eleven, 
RNUM(5) would equal twenty. RNUM is used as an in- 
dex into ROLL so that the events satisfying Test 4 can 
be printed in line 290. 

DATA STRUCTURE OF DICE ANALYZER 
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The diagram shows the relation between TTL( ), 
ROLLf ), and RNUM( ). On the 29th roll (N=29), the 
dice had values 1, 5, and 5. The sum of their values is 
eleven so TTL(29) equals 11. This was the second oc- 
currence of a total value of eleven. Consequently 
RNUM(2) equals 29. Similarly the 114th roll was the thir- 
teenth occurrence of an eleven. The diagram shows that 
RNUM(I3) equals 114, TTL(114) equals 11. and the three 
dice had values 4, 1, and 6. 

We have covered the fundamental concepts of index- 
ing, pointers, and linked lists in the Dice Analyzer pro- 
gram. Study the program and the data structure to under- 
stand how the variables are defined and related. Better 
yet, see if you can modify the program to handle more 
dice. Perhaps you could change the Dice Analyzer pro- 
gram to answer the four questions suggested earlier for 
the Dice Simulator program. 

Think about the possible data structures as you begin 
to create any program. A more complicated structure 
might be harder to implement, but it may pay off with 
ease of expandability and versatility later. □ 

SEE PROGRAM LISTINGS ON PAGE 99 
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CAPTURE 



presenting . . . 

A NEW WAY TO UNLOCK THE POWER OF YOUR C64 OR C128* 

• CAPTURE IS A CARTRIDGE THAT PLUGS INTO YOUR COMPUTER'S EXPANSION PORT. 

• CAPTURE DOES NOTHING — UNTIL YOU PRESS ITS CAPTURE BUTTON. UNTIL THEN, A 

RUNNING PROGRAM CANNOT DETECT ITS PRESENCE. 

• CAPTURE THEN TAKES CONTROL — NO IFS, ANDS OR BUTS — AND PRESENTS A MENU. 

• CAPTURE WILL NEATLY SAVE EVERYTHING IN YOUR COMPUTER TO YOUR 1541 OR 

COMPATIBLE DISK DRIVE — ALL 64K OF RAM, CPU, VIC AND SID CHIP 
REGISTERS — EVERYTHING, IN EASY TO VIEW CHUNKS. 

• CAPTURE WILL, IF YOU WANT, PRE-CONFIGURE YOUR COMPUTER'S RAM SO THAT 

ONLY MEMORY ALTERED BY YOUR PROGRAM NEED BE SAVED. 

• CAPTURE WILL WRITE A BOOT ON YOUR DISK SO YOU CAN RELOAD AND BEGIN 

EXECUTION RIGHT WHERE YOU LEFT OFF. 



• CAPTURE DOES ALL THIS AT A COST OF JUST 



$39.95 



BUT HERE'S THE BEST PART 



• CAPTURE WILL MAKE AN AUTO-START CARTRIDGE OF YOUR PROGRAM. IT'S EASY! 

JUST FOLLOW THE DIRECTIONS ON THE SCREEN. NOW PLUG IN YOUR 
CARTRIDGE AND TURN ON YOUR COMPUTER. IN LESS THAN TWO SECONDS 
YOUR PROGRAM BEGINS AGAIN AT PRECISELY THE POINT WHERE YOU 
CAPTURE'D IT. MAGIC! 

BESIDES CAPTURE, YOU NEED A promenade CI AND A SUPPLY OF CPR3 
CARTRIDGE KITS. 

ORDERING INFORMATION 

• CAPTURE CARTRIDGE — COMPLETE WITH INSTRUCTIONS $ 39.95 

• promenade ci — eprom programmer with disk software 99.50 

• CPR3 CARTRIDGE KIT — PC BOARD, CASE AND 3 EPROMS 29.95 

• DR— EPROM ERASER, TWO AT A TIME, 3 TO 10 MINUTES 34.95 

• STARTER SET — CAPTURE, promenade C1 AND I CPR3 149.95 

• deluxe set — capture, promenade ci. dr and 2 cpr's 199.95 

SHIPPING AND HANDLING — USA: UPS SURFACE $3.00 

BLUE LABEL $5.00 NEXT DAY AIR $13.00 

CANADA: AIR MAIL $7.00 OTHER FOREIGN AIR $12.00 

CALIFORNIA RESIDENTS ADD APPLICABLE SALES TAX 
COD ORDERS, USA ONLY, ADD $3.00 

C64 AND C128 TM COMMODORE ELECTRONICS, LTD. 'WHEN OPERATING IN 64 MODE 

TO ORDER: TOLL FREE 800-421-7731 TECHNICAL SUPPORT AND 408-287-0259 

FROM CALIFORNIA 800-421-7748 FROM OUTSIDE THE US: 408-287-0264 




JASON-RANHEIM 

580 PARROT STREET 
SAN JOSE, CA USA 95112 
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jSjHji, Commodore 64 Accessories 

*p|r ft ft SUREN ft ft 

Summer Sixxier Sale 




Sale Positively Ends 9-15-85 

Prices will go back to regular sale prices 

CI 28 Commodore Computer 

Expandable to 512K. runs C-64, CPM. and 7.0 Programs. 
(AddSlO Shipping) 

157 2 " Commodore 150-170 CPS Printer 

Near Letter Quality, Multiple Pin Tractor Friction Feed. 
Best Printer Value in U.S.A. (Add $1 7.50 Shipping) 

Commodore-64 IEEE Interface 

Allows you to run Pet Peripherals on the C-64, including the 
One Megabyte Disk Drive and 15' i" Printer 

Juki Printer/Typewriter 



yp< 

el. use 



Letter Quality, daisy wheer. use as typewriter and or printer 
(auto correction) (Add S 1 Shipping) 

SCM 80 CPS Printer 

Tractor Friction 10' Famous Name Printer does Graphics 
w Interface. (Add S10 Shipping) 

Cardco C Plus Interface 

Converts Commodore to Centronics for use with most printers, plus 
does Commodore grophics on graphic printers 

Alphaeom 40 Column Printer 

Thermal technology - does graphics. (Add $7,50 Shipping) 
Alphaeom C-64 or Atari Interlace S8.9S. 

190K Slim-Line Disk Drive 

Cooler, 20°i J faster, quieter than 1541 drive (Add SI Shipping) 

One Megabyte Disk Drive (1000K) 

Double sided drive hooks up to C-64 with IEEE interface, perfect as a 
second drive. (Add SI Shipping) 

13" Premium Quality Color Monitor 

Better than 1702. with seporoted video inputs. (Add SI 4.50 Shipping) 

Voice Synthesizer 

Allows you to folk through your computer. Optional software lets 
you play talking adventure games (Zork, etc.) 

80 Column Board - 4 Slot Expander 

Allows you to progrom in SO columns plus gives you a 4 slot switch 
selectable expander 

Auto Dial Modem with Super Smart Software 

Upload, Download, Print. Catalog. This Packoge has it all! ! ! 
Best Modem Value in the U.S.A.! ! 

Musicalc I Software 

The Best Musical Software for the C-64. allows you to change all 
parameters. 

Oil Barrons Software 

Better than Monopoly, conies with gome board, disks ond 
instruction manual. Strike Oil or Live in the Poor Farm 



List 


Reg. Sale 
Price 


Summer 
Sizxler Sale 


534900 


*299°' 


$289" 


539500 


*299°° 


$J 99 95 


s 109" 


''69™ 


$ 65 9S 


534900 


s 249 00 


$ 229 95 


5 299 00 


*159°° 


s 149 95 


M09 00 


'59°° 


s 49 9s 


59900 


*24' 5 


$22 95 


$24900 


•169 00 


$13995 


533900 


*199°° 


$ 179 K 


539900 


*199 00 


*169 95 ' 


S0900 


*4$00 


$ 39 95 


5 14900 


47000 


*59 9S 


si 29 9i 


*59°° 


f 39 9S 


s 59" 


» 9Qf5 


$14** 



s 49' 



'19' 



$ 9 



95 



* plus Software Coupon Discounts 



Add S3, 00 lor shipping, handling and insurance. Illinois residenls 
please odd &% lax Add 56,00 lor CANADA PUERTO RICO HAWAII 
ALASKA APO-FPO orders. Canadian orders musT be in U.S. dolfors. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
days tor delivery 2 io 7 days lor phone orders 1 day express moil i 

VISA MASTERCARD — COD 
NoC O D loConoda. APO FPO 



We Love Oar Customers 

22292 N. Pepper Rd.. Barrington Illinois 60010 

312/382-5244 to order 
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FANTASTIC COMPUTER PRINTER SALE!!! 



10X COMSTAR 

HIGH SPEED . 

Tractor Friction Printer 
130-150 CPS 



Only 



COM-STAR 



an 



List $499 

15%" 150-170 CPS Printer $319 



• Lowest Sale Price, Premium Quality, Tractor/Friction Printer in the U.S.A. (Best Value) 

• High Speed 130-150 Characters Per Second * 40,46,66,00.96. 132 line spacing 

• Word Processing, Letters * Business Forms • Labels, Graphics, Tables • List Programs 
Fantastic Graphics • Print Modem Data • The Most Important Accessory For Your Computer 



Premium Quality 
180-150 CPS I0X COM-STAR 

High Speed Printer $199 

in" carriage, 2K buffer, prints 
8V6"xli" standard single sheet or 
continuous feed paper. Bi-directional, 
impact, dol matrix, 130-150 CPS, 9x9 
dot matrix with double strike 
capability for 18 x 18 dot matrix (near 
letter quality I, high resolution bit 

image. underlining. downloadable 
characters, true lower descenders 
with super and subscripts, prints 
standard, block graphics, and special 
characters, it gives you print quality 
and features found on printers costing 
twice as much ! 1 i Centronics Parallel 
Interface j (Better than Epson FX80 
and Gemini I Ox J, 
List S-19'J.OO. SuleSJttSUMr. 

P re mi tun Quality 150-170 CPS 

l»J/ 2 X OOM-STAR Business 

Super High Speed Printer $319.00 

Has all the features of the 10X COM- 
STAR PRINTER plus 15V carriage 
and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson 
EX 100 & Delta 18), 
Lis) SB9B, Sale $319.00, 



Fill IIE SMITH 
iU CORONIV 



OOlympia 



10" 80 CPS Printer 

Friction/Tractor Bidirectional Dot 
Matrix printer with six pitches 
including condensed and enlarged 
type for impeccable printing. Drop in 
cassette ribbon: Centronics interface 
included. 

I.isl $298.00. Summer Sale $149.00 
(Limited Quantities) 



Executive Letter Quality $299.00 
15" Daisy Wheel Printer 

This is the world's finest daisy wheel 
printer. Fantastic letter quality, up to 
20 CPS bi-directional, will handle 14.4" 
forms width! Has a 25fi character print 
buffer, special print enhancements, 
built in I raetor feed (Centronics 
Parallel and KKL'.'W Interface i 190 
day warranty i. 

List $649,00. Summer Sole $289.00 



Super Summer Sale Ends 9-15-85 

■JUKI 

I* ri nter /Type writer 
Combination $229.00 

"Jl'KI" Superb letter quality, daisy 
w h e e 1 j) r i u t e r / 1 y p e write r 
combination. Two machines in one — 
just a flick of the switch. 12" extra 
large carriage, typewriter keyboard, 
automatic margin control and 
relocate key, drop in cassette ribbon! 
(00 day warranty I Centronics 
parallel or RS232 serial port built In 
(Specify I. List $849.00. Sale S23tt.H0. 



OOlympia 



Printer/Typewriter Combination SBfl.OI) 
Better than ihm Selectric. superb 
computer printer combined with the 
world's finest electronic typewriter. 

Two machines in one, just flick the 
switch for up to 20 CPS printing (300 
Words per minute) on a 15" carriage 
that handles up lo M 1/8" in. paper. 
Drop in cassette ribbon — express lift 
off correction, Centronics parallel 
interface 1 90 day warranty). 

List $7-i9.ii(i. Summer Sale $880.00, 



• 15 Day Free Trial — I Year Immediate Replacement Warranty 



PARALLEL INTERFACES 



For VIC-20 and COM-64 - S59. OO. Apple — S59. OO. Atari - $59.00. 



Add $11 50 lor shipping handling and insurance Illinois residents 
please odd 6", lo«. Add 529.00 lor CANADA PUERtO RICO HAWAII 
ALASKA. APO FPO orders Conodion orders must be in US dollar*. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Cashiers Check Money Order or Personal Check. Allow 14 
days delivery, 2 10 7 days for phone orders. 1 day express mail ' 
VISA - MASTERCARD COD No CO. D to Canada or APO FPO 



We Love Our Customers 

22292 N, Pepper Rd.. Barrington, Illinois 60010 

312/382-5244 to order 



RoadQr Service No. 147 




Commodore 64 



One Megabyte 






Sale ^^ • ^^ • Sale 

$ m Disk Drive $ m 

Store Spreadsheets, Databases, Wordprocessing Data, Etc. 

• Commodore 64 • PET • 8032 • B128 



The one megabyte disk keeps you from hunting through hundreds of disks for your programs; plus running out of 
room on your drive for Data base Data, Word processing Text, Spreadsheet Data, Business program Data, etc. 
With the One Megabyte Disk Drive you can store over 5'/i times the capacity of the 1541. You can store your 
own programs and any backupable commercial programs plus data from your business programs*. Perfect as a 
second Drive! I ! ! Enter the world of professional computers today. C-64 requires IEEE interface. 
ListS899.00, Sole $179.00. LIMITED QUANTITIES! -Requires 1 drive software. 



$ 199 00 Sale $ 199 00 

15Y 2 " High Speed 
150-170 CPS 

BUSINESS PRINTER 




The 8023 is a highly advanced 1 36-250 column I 5' i" professional tractor friction printer with full Bit image graphics and 
downloadable characters for custom reports and program listings. The paper feed includes a multiple pin traclor for 
smooth error free operation. With the ribbon rated at 1 million characters (no mess cartridge) and the print head at 100 
million characters this printer will last o lifetime. Full formatting with near letter quality makes lining up decimol 
points, automatic "S" signs and tabbing look fantastic and easy to use. With out a doubt THIS IS THE BEST PRINTER 
VALUE IN THE U.S.A. List S899.00 Sale $199.00 LIMITED QUANTITIES! 



SPECIFICATIONS 



PRINTING METHOD 

Serial Impact Dot Matrix 

PRINT RATE 

150-170 Characters per 

second (CPS) 

PRINT STYLE 

Near Letter Quality 

PRINT DIRECTION 

Bi-directional 



COLUMN CAPACITY 

136 - 250 

LINE SPACING 

Programmable 

COPIES 

3, including original 

RIBBON TYPE 

Cartridge ($14.95) 



RIBBON LIFE 

1 Million Characters 
PAPER WIDTH 
3" to 15 V tractor or 
single sheet friction 
INTERFACE 
IEEE Protocol 
CHARACTER SIZE 
0,116" high, 0.08" wide 



GRAPHICS 

Bit Image 

Programmable Characters 

Reverse Characters 



ERROR HANDLING 

Internal 

Self - Diagnostics 

Microprocessor 



Commodore 64 IEEE Interface 



This interface plugs into your Commodore 64 Disk Drive port and allows you to hook up the 1 Megabyte Disk Drive and 
8023 Printer as well as other IEEE devices, Separte power supply insures reliability. Fantastic Interface, 
List S109.95. If bought with printer or disk drive $69.00. 

(no interface needed tor PET. B- 128 and 8032 computers) 



Add S17.50 lor shipping handling and insurance. Illinois residents 
please add 6*. to*. Add S35 00 for CANADA PUERTO RICO HAWAII 
ALASKA. APOFPO orders. Collodion orders must be in U.S. dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check Money Order or Peisonol Check. Allow l» 
days lor delivery 1 So 7 days for phone orders. I day express mail I 
VISA MASTER CARD --C.O.D, 

NoC.O.D. lo Canada. APOFPO 



We Ltove Our Customers 

22292 N. Pepper Rd., Barritigton, Illinois 60010 

312/382-5244 to order 
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COLOR MONITOR 
g£ SALE!!! 



(Premium Quality) 

• Built in Speaker and 

Audio 

• Front Panel Controls 

• For Video Recorders 

• For Small Business 
Computers 

• Apple - Commodore - 
Atari - Franklin - etc. 



Add SI ■i 50 shipping handling arid insurQrH** 

ElIiniMs reitdenll ploast? odd 6% lax. We do 

not ship T(> fOfCigrr counlries (including 

Canada Alaska Puerto Rico APO FPQ. 

Cncfosc Cashiers Chock. Money Odor or 
Perianal Chtrek ANowlidnyilofdfi-liveiy 2 
to '? doyi lor phonn anityti ) day express 





(Premium Quality} 

* Beautiful Color 
Contrast 

* High Resolution 

* Separated Video 

* Sharp Clear Text 

* Anti-Glare Screen 

* 40 Columns x 24 Lines 

* Supports 80 Columns 

List $329 00 

13" Color Computer Monitor Re 9' $alejj»*f 

■Connecting coble S9.9S SUffltTlOr SOlG SI 69^ 



14" COMMODORE 1702 COLOR MONITOR 

List S299.00 

90 Day Immediate Replacement Warranty 



(odd SI J. 50 shipping) 

15 Day Free Trial 



Super Summer $^ TFQOO 
Sinler Sale I # T 



12" XTRON SUPER HI RESOLUTION MONITOR Super Summer $ 



80 Columns x 24 Lines. Super Hi-Resolution 1000 linos Green or Amber 
SuperCleor "Easy to Read' text with special anii-glare screen ! .Ltd Qty. 



Sinler Sale 
List S249.00 



109 



95 






g£AW HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 

80 Columns x 24 Lines. Hi-Resolution, crisp clear easy to Super Summer $OA95 

read loxt with ami glare screen! A MUST for word processing, (Lid. (.":. l: ''" *'""-"U c: TT | pr c |« MM T» 



12" MONITOR GREEN OR AMBER TEXT 

80 Columns x 7 A Lines, easy to teod up front controls did. Qty | 

13" RGB & COMPOSITE MONITOR 

Must be used to get 80 columns with CI 28 & Atori ST. 



List $159,00 



Super Summer $ 
Sizzler Sale 



List S399.00 



Super Summer 

Sinler Sale 



69 95 

$27000 

Connecting cable S9.95 



• LOWEST PRICES* 15 DAY FREE TRIAL ■ 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL ■ OVER 500 PROGRAMS • FREE CATALOGS 



J 



Add $10.00 lot shipping, handling and insurance. Illinois resldonls 
please add 6\ tar. Add 520 00 lor CANADA PUERTO RICO HAWAII 
ALASKA APO-FPO orders. Canadian aiders must be in U.S. dollars 
WE DO NOI EXPORt TO OTHER COUNIRrES EXCEPT CANADA 
Enclose Cashiers Check. Money Order or Personal Check, Allow u 
doys for delivery 2 lo 7 doys for phane orders 1 day express mail I 
VISA MAStERCARD COD. No CO D. to Canoda. APO FPO 



We Ijovc Our Customers 

22292 N, Pepper Rd,, Barrington. Illinois 60010 

312/382-5244 to order 
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fnfc 



Professional 
handicapping systems 



?fls 



■ PRESENTED BY PROFESSOR JONES • 



GLD. Thoroughbred "Gold" Edition' 



A I; 



. 



S159.K .:;■.-■■■ 



Wt 



EGLD. Enhanced "Gold" Edilion"" 

Gov? lauyiMttcOTdecrMjutr Boar "tyfumrttgultf crto wivne 

as* Tfcs poaerTj ctpya-i mi! m¥JI'o1« and scores to Pse Bet aiaf/v* 
■* i s.ig<e tryUiM " ,Ukv fcflm ■ «d,ord] I1M.B HegNM 

GLTD. Limited "Gold"'" 

Em5ES ProleJSrenal Handcepprrt !:• BSSjl SPK k Wtfoa ta tre racing var 
lawes ' they" reel are nr.po«1an! Crate progra/n WP311 based on a parKuLar 
1rach and fine lone i! ror mm mum *in pcrienlaoe This program is designed 
1or ,, nase or ose" The. user "er-.t*. no progiwiining experience. 

tconljin lolrc'-reo Betror 1 ") S299.9S civiisile I * 

GD. Gold Dog Analysis" 1 

Tre ONLY Dfcresvryul greyhound anafyUI avfcraCle th-'r rvUMtM ALL 
M/aBes 1149.H • .-rtj-iM &:-=( S199.95 

. , S?;? 95 

MHH. Master Harness 
Handicapper'" 

Pttfetftcnal sot:»are Of signed ro provide i thcrrongh jna'yis pi ; 

cacc races in Nwlft AmprEJ and Canada S159.95 c:-.n>ir 

5199.95 it/KtJritW Sella Limited 5399.95 

Prolessor Pl> Football'" 

'.' iMstsllMTJ. ■V..MVJ. ..I: -i .iltwrig [tercnawr PfWJn 

games In m fyauared Sutntiiul Stm $99,95 

•Win Lost Paw* Ramos S149.9J 

NBA. Basketball™ »8AiW.H «.™i'ese 5129.95 

•ipower raGngs SI 49. 95 

LOT, Lottery Analysis'" 

Statetcal comparer Wf *" ttebOrttfl » Detect sum* pattens r iwvwig 

nj-n-p s ami ctstts L «W» (3 J airs . 579 95 

wdttlo (Mm 99 D.gitJ S99.95 

PC-3 Portable Computer |4h) «<ma«*oJTN 0>Md gray 

ho and lip lrnltei '■ SZ49.95 n-ciodei corlabln computer arm pegram ) 

M-10D Portable (24k) «*i™r,eoiii»rr.«,ghtrtti. Greynoow or in™ 
1649.95 ii'.iiiiii.', Ln-irWe conip-Jer ane p'ngram ) 



BROCHURE AVAILABLE 



IBM™ 

APPLE™ 

TRS-80™ 

CPM T " 

COMMODORE™ 



Prof, Jones 

1940 W. State St. 
Boise, ID 83702 



48 HR. FREE 
SHIPPING 



^S CALL 

206-342-6939 



IfRHS fREi" SHIPPING fiLI 
SOflWAHt Mn SB 00 nam 
ml-VsGUOCuLI rUPSBlMP 
Sli («) I Dill 01 Couimy S9 X ' 
ID Rasiutnls 4""j 1 3 weeks per- 
sonal chctki, I Cash pf ice only 
ado 2*t Visa MC / Prices Sith 

jec« To Ctiaftge 
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"Our operator will show you how easy it is to operate. At 
the moment, however, he's getting his diaper changed. . ." 



IERRATA 



Wc omitted two characters from line 620 in Lucky Lot- 
tery (July '85), causing the program to crap out with a 
syntax error. Correct line 620 to read as follows: 

•620 IF A$<> , '[F1] ,, OR A$<>"[F3]" OR A$<>" 
[F5]" THEN580 

In Duck Shoot (June '85), a printer malfunction added 
extra spaces to lines 10 and 120-160. These spaces should 
be ignored. 

We apologize for any problems caused by the above 
errors. Remember that corrections to Ahoy! programs are 
posted on our bulletin board (718-383-8909- modem re- 
quired!) as soon as errors are spotted. 

SMALL THINGS CONSIDERED 

Ahoy! offers its congratulations to 

Kenny Hill 
Jamaica, NY 

winner of a subscription to Ahoy! courtesy of New 
"fork's Small Things Considered radio show (heard 
weeknights 5-8 and Saturdays 6-8 on WNYC AM83). 



PROGRAMMING 
TIPS WANTED 

Here's a chance for you, the readers of 
Ahoy. ', and us, the editors of Ahoy I, to work 
together. If we each do our part, we can make 
Ahoy/'s soon-to- debut programming tips col- 
umn the finest in any magazine. Your part will 
be to provide hints, tips, and programming 
routines that can simplify your fellow Commo- 
dore computerists' lives, enhance their abili- 
ties, or both. Our part will be to come up with 
a catchier title by the time this column actual- 
ly appears. 

Keep run-of-the-mill, twice-told tips to your- 
selves. This is Ahoy! We want valuable pro- 
gramming tips. And we'll pay premium rates 
for them. 

Send your submissions to Ahoy.' Program- 
ming Tips, Ion International Inc., 45 West 34th 
Street-Suite 407, New York, NY 10001. 
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A Look Around 




Commodore's Disk Drive Companion to the 128 



After taking a close look 
at the capabilities of 
our 1571 prototype, we 
have been very favor- 
ably impressed. In 
most areas operating speed has been 
improved, as much as nine times for 
a straight LOAD. Even faster perfor- 
mance can be obtained under certain 
conditions. Commodore also appears 
to have learned their lessons on the 
1541 very well, as careful attention 
has been given to previously trouble- 
some hardware details. 

SPECIFICATIONS 

To fulfill its primary purpose of 
supporting the Commodore 128 com- 
puter, the 1571 has two distinct per- 
sonalities. As a Commodore drive it 
behaves very much like a double 
sided 1541 disk drive. Formatting a 
disk (a 43 second process) results in 
tracks 1 to 35 being laid down on side 
0, the same as on the 1541. The flip 
side, side 1, contains tracks 36 to 70. 
Note that side 0, the side which the 
1541 uses, is the underside of the disk 
when it is placed on a surface with 
the label feeing up. As expected, dou- 
ble siding the disk also doubles the 
overall data storage capability. How- 
ever, not all of the drive capacities 
are doubled. 

Total disk capacity for a Commo- 
dore formatted disk is now up to 
349,696 bytes. A look at the direc- 
tory of a disk freshly formatted on 
a 1571 shows a total of 1328 blocks 
free. The maximum size of a sequen- 
tial file has been increased to a total 
of 337,312 bytes. A file this size will 





How the 1541 and 1571 drives stack up. 
READER SERVICE NO. 101 



By Morton Kevelson 




span both sides of the disk. Interest- 
ingly enough, the maximum size of 
a relative file is 167,132 bytes, the 
same as on the 1541. 

Track 18 on side is reserved for 
the block availability map (BAM) and 
the disk directory. The BAM tells the 
disk drive which sectors have been 
reserved for data storage. Sector zero 
of this track contains the BAM for 
both sides of the disk. A separate 
copy of the BAM for side 1 is main- 
tained in sector of track 53. The ca- 
pacity of the directory is limited to 



144 file entries, as on the 1541, al- 
though the remainder of track 53 
does not appear to be used for any 
purpose. 

THE DOS 

Much work appears to have gone 
into the built-in disk operating system 
(DOS), so much so that Commodore 
has upgraded the DOS version to 
number 3.0. This is puzzling, as DOS 
3.0 is also used in the Commodore 
D9060 and D9090 hard disk units. 
The most recent DOS for a Commo- 
dore floppy disk unit was version 2 .7 
on the 8250 dual drive and its SFD 
1001 single drive counterpart. The 
latest revision on the 1541 is DOS 2.6. 

TIMING 

With regard to operating speed we 
have some good news. As mentioned 
above, formatting time for both sides 
of the disk is only 43 seconds. Pro- 
gram loading time, when used with 
a C-128, has been speeded up by a 
factor of nine as compared to a C-64 
with a 1541 disk drive. The follow- 
ing table shows the result of some 
simple benchmarks tests: 





C-64/1541 


C-128/1571 


30K LOAD 


77 Sec. 


8.5 Sec. 


30K SAVE 


87 Sec. 


58 Sec. 


40K SEQ File 






Read & Write 


230 Sec. 


145 Sec. 


Read Only 


112 Sec. 


45 Sec. 


Write Only 


120 Sec. 


100 Sec. 


REL File 


271 Sec. 


280 Sec. 



The sequential file tests were con- 
ducted by running the following 
BASIC program: 

AHOY! 47 




The 1571 drive with its lid removed. 
The power supply is on the right. 




Main circuit board rests below 
power supply and drive mechanism. 



10 REM DISK DRIVE TIMING 

20 REM SEQUENTIAL FILE BEN 

CHMARK 

30 A$="ABCDEFGHIJK" 

40 F0RI=1T08 

50 B$=B$+A$ 

60 NEXT 

70 OPEN8 t 8,8,"SEQ FILE TES 

T S W" 

80 F0RI=1T0460 

90 PRINT#8,B$ 

100 NEXTI 

110 CL0SE8 

120 0PEN8 t 8,8,"SEQ FILE TE 

ST.S.R" 

130 F0RI-1TO460 

140 INPUT#8,B$ 

150 NEXTI 

160 CLOSES 

The relative file test consisted of 
creating a file with 512 records where 
each record was 254 bytes. Only the 
last record was written to. 

These timing tests are only part of 
the story. The 1571 has a "burst" 
mode which should result in much 
faster data transfer rates between the 
disk drive and a C-128. The burst 
mode is recommended only for 
non-critical data, such as bit maps, 
where a data error is not fatal. The 
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high speeds used by the burst mode 
leave little time for DOS error check- 
ing routines. Commodore 64 users 
will not be able to take advantage of 
the faster operating speeds without 
special software. The C-64 operating 
system does not have the required 
routines. Using a 1571 with a C-64 
will not give any speed advantage, al- 
though the extra disk capacity will 
still be available. 

The discussion until this point has 
centered about the Group Code Re- 
cording (GCR) scheme which is vir- 
tually unique to Commodore format- 
ted disks. The 1571's second person- 
ality gives it the ability to format 
disks using modified frequency mod- 
ulation (MFM) double density re- 
cording techniques. This format has 
been adopted by a large segment of 
the personal computer community, 
most notably by many CP/M ma- 
chines. Even in this case there are 
variations among machines, most 
notably in the total capacity of a for- 
matted disk. This can be related di- 
rectly to the number of bytes in a disk 
sector. 

The 1571 has considerable flexibil- 
ity with the MFM format. Sector ca- 
pacity can vary from 128 bytes up to 
1024 bytes. The following table shows 
the possible combinations. 



Sector 
Capacity 



§ of Sectors 
per Track 



Disk 
Capacity* 



128 Bytes 26 260K 

256 Bytes 16 320K 

512 Bytes 9 360K 

1024 Bytes 5 400K 

♦Formatted capacity for a double sided disk. 

The MFM formats, as well as the 
high speed burst mode, are accessed 
via a new direct disk command, U0. 
The preliminary documentation in- 
dicated that mixing of the various 
MFM and GCR formats was possible 
on a single disk. Even formatting of 
single tracks is possible. These pros- 
pects are sure to gladden the hearts 
of many copy protection enthusiasts. 

We will report on CP/M on the 
C-128 with the 1571 in the near fu- 
ture. As of this writing (mid- June) 
Commodore has not released the 
CP/M operating system and support 
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utility disks. 

COMPATIBILITY 

Although the 1571 is a double sided 
drive, it is still fully capable of read- 
ing and writing single sided disks for- 
matted on a 1541 disk drive. When 
working within C-128 mode, the 
drive initially assumes that the disk 
is double sided. If a single sided disk 
is inserted it takes the drive about 15 
seconds to convince itself that the 
second side is blank. Once done, all 
subsequent reads and writes are done 
in single sided mode. Unfortunately 
this second side checking routine oc- 
curs every time disks are swapped. 
The 15 second delay could become 
annoying if single sided format disks 
are frequently mixed with double 
sided disks. 

Double sided disks are filled on 
side first. If you use a 1541 with 
a double sided disk you will not be 
able to access the second side. Flip- 
ping the disk will not work as the ro- 
tation is reversed. In addition, the 
track numbers run from 36 to 70, 
These are illegal as far as the 1541 
DOS is concerned. The real difficulty 
is when a 1571 is added to an existing 
C-64 system. As the disk fills, files 
will spUl over to the second side. Try- 
ing to read one of these on a 1541 will 
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return an illegal track or sector er- 
ror. The 1541 does not recognize 
track numbers greater than 35. 

When the 1571 is connected to a 
C-64 it reverts to 1541 mode. Under 
these conditions the drive will not 
read the second side of a double sided 
disk. Even formatting time reverts to 
70 seconds for a single side! Com- 
patibility with 1541 software is very 
good. All the standard DOS com- 
mands function as before. Nearly all 
of the copy protected disks we tried 
LOADed without any difficulty. 

THI ELECTRONICS 

The internal works consist of three 
modules, two for the drive electronics 
and one for the hardware. The pow- 
er supply module is completely con- 
tained in a perforated metal cage lo- 
cated directly above the main circuit 
board. This mounting position in- 
sures that heat dissipation will be 
away from the main electronics. The 
major heat generating components 
are the twin voltage regulators and 



transformer on the left side.- These 
supply the five volt DC and twelve 
volt DC requirements for the drive. 
The 120 volt supply line is fully 
filtered. 

The heart of the drive electronics 
is a 6502A microprocessor with 32 
kilobytes of disk operating system in 
ROM supported by two kilobytes of 
RAM, A 6526 CIA chip and a 6522 
VIA chip handle the I/O require- 
ments. The Commodore format GCR 
recording is handled by a custom 
large scale integrated circuit. The 
MFM recording for CP/M format 
disks is taken care of by a Western 
Digital WD1770 chip. 

MECHANICALS 

As with all of Commodore's disk 
drives, the design of the 1571 is rev- 
olutionary. For the end user the most 
significant improvement is the incor- 
poration of an optical sensor for the 
track one head position. This should 
virtually eliminate the alignment 
problems which plagued the 1540/ 
1541 disk drives. The mechanical 
stops are still present but they are not 
normally used. The disk operating 
system arrests head movement at the 
track one position when formatting 
a disk or error checking as might be 
done with some forms of copy pro- 
tection. 

To insure proper seating of the 
disk, the 1571 spins the drive spindle 
every time a disk is inserted or re- 
moved. This operation is triggered by 
the write protect sensor. Of course, 
the same electronics also inform the 
DOS whenever a disk is swapped. 

The 1571 is a double sided drive. 
Two heads (which in this case are 
definitely better than one) are pro- 
vided to accommodate the storage of 
data on both sides of the floppy sur- 
face. These are situated in diametri- 
cally opposing positions so as to 
sandwich the floppy medium between 
them. These hard, highly polished, 
precision surfaces must never make 
contact lest their finish be marred. A 
mechanical interlock has been incor- 
porated into the latch mechanism for 
this very purpose. The heads will re- 
main in the open position unless a 
disk is inserted to trigger the inter- 







Goseup of drive mechanism, which 
incorporates a brushless DC motor. 




A closeup and inside view of the 1571 
disk drive's power supply. 

lock. This is true regardless of the po- 
sition of the external operating lever. 

Head cleaning, for those who shun 
the cosUy cleaning kits, requires a 
minimum of disassembly. Simply re- 
move the top cover to gain access to 
the heads. As can be seen from the 
photographs, the power supply and 
the main electronics board are situa- 
ted behind and below the drive me- 
chanicals. There is no need to remove 
any of these components to clean the 
heads. Do not attempt to force the up- 
per head support arm beyond its me- 
chanical stop. Movement is rather re- 
stricted as compared to the design on 
the 1541. A good-quality clean cot- 
ton swab, moistened with isopropyl 
alcohol (91%), does the job. As with 
all component disassembly, we cau- 
tion our readers to use their own good 
judgment. Opening of the disk drive 
may void the warranty. If you have 
any doubts on your ability to handle 
this work, leave it for a qualified ser- 
vice technician. 

The drive mechanism is manufac- 
tured by Newtronics/Mitsumi Elec- 
tric Co. Ltd. It incorporates a brush- 
less direct drive DC motor for spin- 
ning the disk. The motor control 
electronics are on a circuit board 
which surrounds the armature. 
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As expected, the back panel in- 
cludes a pair of serial ports to allow 
daisy chaining of peripherals, the 
main power socket, and the on/off 
switch. A significant new addition is 
a pair of miniature switches right next 
to the serial port connectors. These 
allow the selection of device numbers 
8 through 11. Interestingly enough, 
the preliminary documentation still 
talks about the cutting of internal 
jumpers to change device numbers. 

In addition to the mandatory disk 
slot, the front panel sports a twist 
lock door latch and a pair of colored 
indicating lights. For some reason 
Commodore has departed from their 
previous color scheme. In direct op- 
position to the 1541 the power on light 
is red and the drive indicator light is 
green. 

THE MANUAL 

Judging from the draft copy of the 
manual, users will be in for a pleasant 
surprise. Although it is directed to the 
reader with some knowledge of 
BASIC, the manual contains a lot 



more information than the early ed- 
itions of the 1541 book. Carefully 
written explanations with numerous 
detailed examples are sprinkled 
throughout the text. The draft manual 
is over sixty pages, with two more 
chapters yet to come. 

Numerous tidbits of information 
have been included. Many of these 
were apparently gleaned from the 
pages of the various Commodore 
publications. Commodore has even 
officially named the ignominious as- 
terisk file as a "splat" file. Splat files 
occur when a file is opened and not 
properly closed by the DOS. They list 
in the directory with an asterisk next 
to their file names. As many a user 
has woefully (bund out, they can foul 
up a disk if not properly treated. De- 
tails for their cure are now an offi- 
cial part of the 1571 manual. 

CONCLUSION 

The 1571 disk drive makes an ex- 
cellent companion to the C-128. The 
system provides all of the features 
Commodore users have been looking 
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for since the introduction of the VIC 
20. Much has been done to improve 
on the marginal performance of the 
serial bus as implemented on the 
1541. (This bus was actually a low 
cost compromise which allowed the 
C-64 to appear on the market in a 
hurry.) 

The flexibility of the 1571*s oper- 
ating modes will be put to full use 
by the CP/M 3.0 Plus operating sys- 
tem. Several popular disk formats 
will be directly supported or easily 
accessed by a set of simple keyboard 
commands. In particular, the sup- 
ported formats arc: 

1. Commodore Formats (GCR) 

• The existing CP/M 2.2 disk for- 
mat, which is used by a Commodore 
64 with the CP/M cartridge. Disk ca- 
pacity is limited to 136 kilobytes in 
this format. 

• A new Commodore CP/M for- 
mat which will utilize the full 360 
kilobyte capacity of a double-sided 
1571 disk. 

2. Non-Commodore Formats 
(MFM) 

• Osborne (single sided only) 

• Kaypro 

• Epson 

• IBM CP/M-86 (single- and dou- 
ble-sided disk capacities from 160 
kilobytes to 360 kilobytes) 

Additional formats are possible but 
will require special programming of 
the 1571 disk drive. In all cases data 
Fdes may be transferred between the 
Commodore 128 and the respective 
machines. Of course, you cannot run 
IBM programs since CP/M 3.0 runs 
on an eight bit Z-80 microprocessor 
while CP/M-86 runs on a 16 bit 8088 
microprocessor. 

The 1571 is only the first step in 
high quality peripheral support for 
the C-128. Work is already well under 
way on the 1572, a dual drive version 
of the 1571. It also would not surprise 
us to sec a Commodore 3 !4 inch hard 
disk with a 10 to 20 megabyte capa- 
city for under $500 in the near fu- 
ture. This combination of features 
with low cost is sure to encourage 
many existing Commodore users into 
the upgrade path. We also expect to 
welcome many new users into the 
Commodore fold. D 
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Touring the 
Commodore 128 Keyboard 

Last month we presented an inside view of the C-128. 

Starting this month we will take a closeup look at 

some of the specific features which make this new machine a 

significant improvement over its predecessors. 

By Morton Kevelson 
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The ergonomic consid- 
erations in the design 
of the C-128 keyboard 
are readily apparent. 
The keyboard's low pro- 
file should help reduce fatigue by al- 
lowing the user's wrists to rest com- 
fortably on the table. Touch typists 
will welcome the raised dimples on 
the F and J home keys, as well as on 
the 5 key of the numeric keypad. The 
2 ! /2 inch wide clear space between 
the keys and the cooling vents is sure 
to become a haven for all sorts of key- 
board overlays. All in all, there are 
92 keys to bewilder the novice. 

Observant readers will also note 
that the main part of the keyboard is 
nearly an exact duplicate of the Com- 
modore 64's. The only notable change 
is the relocation of the function keys 
to a horizontal configuration at the 
right of the top row. Present 64 own- 
ers should have very little trouble be- 
coming comfortable with the C-128 
layout. 

Physical attributes aside, there is 
a lot more to the C-128 keyboard than 
meets the eye. Hidden beneath the 
tactile array, under control of the new 
operating system, lurks a multitude 
of functions designed to ease the us- 
er's sojourn into the realm of com- 
puting with the C-128. 

If you have been using a VIC 20 
or a C-64, you will already be famil- 
iar with a good portion of the key- 
board's capabilities. The full screen 
editor functions in the same way as 
these machines'. The INST/DEL key 
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Above the main keyboard of the 128 
are (top) Esc, Tab, Alt, Caps Lock, 
(middle} Help, Line Feed, 40/80, No 
Scroll, and (bottom) cursor keys. 

stilt eats characters to the left, or 
when shifted opens spaces to the right. 
The quote and insert modes still op- 
erate in the same fashion which non- 
Commodorists find so thoroughly be- 
fuddling. The CLR/HOME key still 
moves the cursor to the top left cor- 
ner of the screen, or when shifted 
clears the entire screen. As with the 



C-64, text can be displayed in 16 col- 
ors, as the labels on the 1 to 8 keys 
indicate. These colors are still ac- 
cessed by holding down the 
CONTROL key or the Commodore 
logo key. Unlike the C-64, the labels 
on the number keys now indicate both 
colors which are available for that key. 
As before, text display can be re- 
versed with a CONTROL/9 and re- 
stored with a CONTROL/0. 

The real power of the C-128 key- 
board is in the new editing and con- 
trol features which have been incor- 
porated into the BASIC 7.0 operating 
system. For convenience, we have 
classified these features into three 
categories: the function keys, the 
ESCape key sequences, and the 
CONTROL key sequences. Let's take 
a close look at each in turn. 

THE FUNCTION KEYS 

On power up, eight useful BASIC 
phrases are preassigned to the C-128 
function keys. These phrases can be 
viewed by executing BASIC 7.0's new 
KEY command without any parame- 
ters. The following list should appear 
on the display. 

KEY 1,"GRAPHIC" 
KEY 2,"DLOAD"+CHR$(34) 
KEY 3, u DIRECTORY"+CHR${I3) 
KEY 4,"SCNCLR"+CHR$(13) 
KEY 5rDSAVE"+CHR$<34) 
KEY 6,"RUN"+CHR$(13) 
KEY 7,"LIST"+CHR$(13) 
KEY 8rMONITOR"+CHR$(13) 
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Getting this list on the screen 
serves two purposes. First, it reminds 
you what is programmed into the 
keys. Secondly, it gives you the op- 
portunity to easily change the con- 
tents in any of the eight function keys. 
For example, if you are not planning 
to do any graphic programming, you 
may want to redefine fl. Just cursor 
up to the "3" in KEY 3 and change 
it to a T. Hit RETURN and the di- 
rectory will now be displayed by fl. 
Enter 

KEY 3, "OPEN 4,4:CMD4"+CHR$ 
(13) 

followed by 

KEY 4, "PRINTS :CL0SE4"+CHR$ 
(13) 

and you will be all set for easy print- 
er listing. Note how the numbers 1 
through 8 which immediately follow 
the KEY statement refer only to the 
function keys. No other keys are af- 
fected by this command. 

There is one possible disadvantage 
to having the function keys prepro- 
grammed. BASIC programs written 
for the C-64 do not expect to find a 
lengthy message when examining the 
function keys. This can be easily 
remedied by reprogramming all eight 
keys with the following: 

FOR 1=1 TO 8: KEY I,CHR$(I+1 
32): NEXT 

This will place the traditional (for 
VIC 20 and C-64 users) CHR$ codes 
into the function keys. You will prob- 
ably want to do this in every program 
which uses the function keys to con- 
trol program operation. 

eSCape KIT SEQUENCES 

The C-128 has the powerful full 
screen editor that a veteran Commo- 
dore user will not feel at home with- 
out. This editor has been greatly en- 
hanced with the addition of a series 
of ESCape key commands. The result 
is that the C-128 screen editor ap- 
proaches the capabilities of a full 
blown text editor. Writing and edit- 
ing BASIC programs has never been 
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The table at 
left shows 
the values 
generated in 
location 212 
by the keys 
of the C-128 
keyboard. 
(See C-128 
Keyboard 
Distinctions 
below for 
explanation.) 



C-128 KEYBOARD 
DISTINCTIONS 

The C-128 sports a numeric keypad which 
should greatly speed up data entry in numer- 
ically intensive applications, most notably 
spreadsheets. These keys, as well as the dis- 
crete cursor keys, duplicate existing keys on 
the main keyboard. There are applications 
where a numeric keypad may be of little or 
no interest. Instead, various program control 
functions could be assigned to the new keys. 

R>r such applications it would be desirable 
to distinguish the keypad from the number 
keys on the main keyboard. The traditional 
ASCII code check following a GET will not 
work, since the same ASCII code will be re- 
turned by the corresponding keys. For ex- 
ample, pressing a "1" on the keyboard or key- 
pad returns an ASCII value of 49, Fomin- 
ately, there is a simple way for BASIC to dis- 
tinguish w-hieh physical key has been pressed . 

Locations 211 and 212 are used by the op- 
erating system for this purpose. The values 
stored here every sixtieth of a second are 
unique for every key. At address 211 the 
SHIFT Commodore logo, and CONTROL 
keys are identified. These keys will set bits 
zero, one. and two respectively at this ad- 
dress. If you PRINT PEEK(2ll") a zero will 
normally be returned. The SHIFT key 
changes this to a one. The logo key returns 
a two and the CONTROL key results in a 
four. These values are additive, so holding 
all three keys down gives a seven. 

The remainder of the keys, with the ex- 



ception of the RUN/STOP, RESTORE. ALT, 
and 40/80 keys, place a unique value in 
address 212 when pressed. On the C-128 this 
location contains an 88 when no key is 
pressed. Press any other valid key and a val- 
ue between and 87 will appear. The table 
above show* the values generated in location 
212 by the keys on the C-128 keyboard. The 
following program can be used to reproduce 
these resulLs: 

10 KkGETKEY AS 

20 PRINT ASC(AS);PEEK(212) 

30 LOOP 

The same program in BASIC 2,0 on the 
C-64 or VIC 20 would be: 

10 GET A$:IFA$-""THfiM10 
20 PRINT ASC(A$);PEEK(203) 
30 GOTO 10 

Note the change in the PEEKed address. 
The operating systems on all Commodore 
machines have many similarities. Addresses 
203 and 653 on the VIC 20 and the C-64 
arc equivalent to 212 and 211 on the C-128. 
The values in 203 for the C-64 will be the 
same for the corresponding keys in 2!2 on 
the C-128. However, the results on the VIC 
20 arc quite different. The shift Hag values 
are the same for all three computers. You 
may want to use the KEY statement on the 
C-128 to clear the function keys before 
RUNning this program, or strange things 
may result. 



easier. 

There are 21 ESCape key sequen- 
ces implemented on the C-128, almost 
one for every letter of the alphabet. 
These sequences are so useful that 
you will probably want to become fa- 
miliar with them in a hurry. The best 
way to become acquainted with them 
is just to use them while writing a 
program. Afterwards, if you really 
want to see how dependent you have 
become on the new features, just GO 
64 and enter the same program , Be 
forewarned, you may be in for a frus- 



trating experience. 

Each of the ESCape sequence 
commands are executed by pressing 
and releasing the ESC key followed 
by the appropriate letter key. Do not 
hold down both keys at once. For ex- 
ample, pressing the ESC key fol- 
lowed by the "A" key places the edi- 
tor in automatic insert mode. Any- 
thing you type will automatically 
push the remainder of the display 
ahead of it. This is a tremendous con- 
venience for rearranging text between 
quotes or for adding temporary com- 
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mantis during program debugging. It 
is especially useful when you keep in 
mind that the C-128 permits entry of 
up to 160 characters (four 40 column 
lines or two 80 column lines) into a 
BASIC program line. Note that this 
is not the same as opening a gap by 
using the INST/DEL key. All of the 
keyboard control functions, such as 
the cursor keys and the CLR/HOME 
key as well as the INST/DEL key, re- 
tain their usual functions. In other 
words, insert mode does not place the 
screen editor into quote mode. 

The screen parser has been en- 
hanced in other ways as well . It will 
now link up to a full screen of text 
at one time. By comparison, the C-64 
is limited to only two screen lines and 
the VIC 20 handles four screen lines. 
However, trying to enter more than 
160 screen characters into a single 
BASIC program line results in a 
7STRING TOO LONG ERROR. By 
comparison, exceeding the C-64's two 
line limit simply resets the screen 
linker to the next two lines. This full 
screen linking on the C-128 must be 
kept in mind when using the ESCape 
functions. The erase to end of line 
command (ESC Q) will remove all 
text from the current cursor position 
to the end of screen text or the next 
carriage return, whichever comes 
first. The erase to beginning of line 
command (ESC J) works analogously 
but in the opposite direction. The 
same is true of the move to end of 
line (ESC K) and move to beginning 
of line (ESC J). On the other hand, 
the insert a line (ESC I) command 
is a screen line function. Use of this 
command within a BASIC line opens 
up one screen line white maintaining 
the line links for BASIC editing. 

All of these functions can also be 
obtained under program control. The 
following sample program illustrates 
some of the effects which can be eas- 
ily obtained by using the ESCape se- 
quences in PRINT statements: 

10 PRINT CHR$(147):REM CLE 

AR SCREEN 

20 CHAR, 14, 11, "OFF THE TOP 
ii 

30 CHAR, 12, 12, "DOWN THE B0 
TTOM" 



40 CHAR, 0,12 

50 FOR I=0T012 

60 PRINT CHR$(27)"I"CHR$(2 

7)"I";:REM INSERT TWO LINE 

S 

70 PRINT CHR$(27) ,, V U ;:REM 

MOVE SCREEN UP ONE LINE 

80 NEXT 

Note that CHR$(27) is the ESCape 
key. Several keystrokes can be saved 
by programming PRINT** < reverse 
[ > X" where the reversed left brac- 
ket is obtained bv simultaneously 
pressing CONTROL, SHIFT, and 
the colon keys while in quote mode. 
The reverse left bracket between 
quotes in a BASIC statement will 
generate a CHR$(27). This is a use- 
ful trick to keep in mind for sending 
escape codes to a printer with a 
PRINT* statement. Note that the 
ESCape key commands only work 
when sent to the screen. If you want 
to see how the program works try 
adding the following lines: 

65 SLEEP 1 
75 SLEEP 1 

The SLEEP command pauses pro- 
gram execution for the specified 
number of seconds. Also note the use 
of the CHAR command to conveni- 
ently position the cursor on the 
screen. The CHAR command is real- 
ly meant to display text on a graphic 
screen. In this context it is being used 
as a PRINT AT command. 

One of the more interesting capa- 
bilities of BASIC 7.0 is the ability to 
define windows. Once a window is 
set, all subsequent screen output is 
restricted to this area. Try the follow- 
ing program: 

10 PRINT CHR$(147) 

20 CHAR,10,10,CHR$(27)''T" 

30 CHAR,10,10,CHR$(27)"B" 

40 LIST 

This will define a screen window 
whose upper left hand corner is at the 
tenth row and tenth column position. 
The lower right hand corner will be I 
at twentieth row and column position. 
Note the use of the CHAR statement j 
to position the cursor as well as to I 



set the window coordinates. Also 
note the coordinates in the CHAR 
statement of line 30. These are cor- 
rect as shown. The CHAR statement 
references its coordinates from the 
upper left hand corner of the current- 
ly active screen window. Since this 
has been already defined by line 20, 
we have to take this into considera- 
tion for line 30. 

To help keep track of the current 
screen window, BASIC 7.0 includes 
the RWINDOW function. The fol- 
lowing sequence of commands: 

R=RWIND0W(0) 
C=RWIND0W(1) 

will place the number of rows and 
columns into the variables R and C. 
While entering a BASIC program, 
the window commands can be used 
to partition the screen into a message 
area and a text area. Just write your- 
self some notes at the top of the 
screen and set the screen window. 
Continue to enter BASIC program 
lines. All screen control functions, 
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such as clear or home, will not af- 
fect the message area. To cancel a 
window just hit the HOME key twice. 

Under program control, a window 
can be used to eliminate the need to 
continuously rePRINT a screen lay- 
out. The message area in the window 
can be manipulated as desired with- 
out affecting the remainder of the 
screen. Note that only one window 
can be active at any time. 

A word about the scroll commands. 
Turning scrolling off, with an ESC 
M, causes the cursor to wrap from 
the bottom of the screen to the top 
of the screen. There is also a NO 
SCROLL key which according to the 
preliminary documentation is sup- 
posed to perform the same function. 
This is not so. We found this key to 
work as a pause as described below. 

CONTROL KEY SEQUENCES 

Turn on your C-128, hold down the 
CONTROL key, and press G. Sur- 
prise! If you had the volume turned 
up on your television or monitor, you 
were rewarded with a pleasant bell 




tone. This may not seem like much, 
but if I had a nickel for every time 
someone asked me for a simple way 
to make that noise on a C-64, 1 would 
have retired a wealthy man some time 
ago. Commodore has finally imple- 
mented the traditional teletype "bell" 
in the C-128 console. The same tone 
can be produced with a PRINT 
CHR$(7). 

In general the CONTROL func- 
tions arc not unique to the C-128. 
Most of them will be familiar to pre- 
sent users of the VIC 20 or the C-64. 
The C-128 does have some significant 
changes and additions to this key- 
stroke sequence. Note that unlike the 
ESCapc key sequence you have to 
hold down the CONTROL key while 
pressing the second key. Also, 
CONTROL key commands can be 
placed into PRINT statements while 
the screen editor is in quote mode. 
In contrast, pressing the ESCape key 
while in quote mode will activate the 
ESCape key sequence. 

As mentioned above, a CONTROL 
left bracket will send an ESCape 
character. Try it. If the editor is not 
in quote mode, this key sequence will 
initiate the ESCapc mode. This lit- 
tle-known key sequence will also 
generate a CHRS(27) on the C-64 and 
the VIC 20. Of course, this has no 
direct effect on these two machines. 

The C-128 has a TAB key on its 
keyboard right next to the ESCape 
key Pressing this key generates a 
CHR$(9), which moves the cursor to 
the next tab stop on the screen. The 
CONTROL I key combination will 
have the same effect. On the VIC 20 
or the C-64, a CHRS(9) will enable 
the character set switch capability. On 
the C-128 this has been moved to 
CONTROL K ( CHRS(U) ). The dis- 
able-character-set-changc command 
has also been changed to CONTROL 
L ( CHR$(12) ), although the old 
CONTROL H ( CHR$(8) ) has no 
unique C-128 function. Programmers 
accustomed to these codes on the 
VIC 20 or C-64 should take note. 

Getting back to the tab functions, 
the CONTROL X ( CHR$(24) ) will 
set or clear a tab at the current cur- 
sor position. However, to clear all 
tabs you have to use the ESCape Z 



TABLE OF ESCAPE KEY COMMANDS 

@ Erase screen from cursor to end of 

window 
A Automatic insert mode 

B Scl bottom right corner of window ;it 
cursor 

C Cancel automatic insert mode 

D Delete current linked line 

I Insert a screen line, preserve line links 

J Move to the beginning of current 
linked line 

K Move to the end of current linked line 

L Turn on scrolling 

M Turn off scrolling 

N Un-reverse HO column display 

O Cancel insert, quote, reverse, and 
flash modes 

P Erase from the beginning of current 
linked line to the cursor 

Q Erase from cursor to the end of cur- 
rent linked line 

R Reverse SO column display 

T Set top left corner of window at cur- 
sor position 

V Scroll screen up one line 
W Scroll screen down one line 

X Toggle between 40 and 80 column 
display 

Y Restore default TAB stops at even,' 
eighth character position 

Z Clear all TAB stops 

ESC Cancel ESCape mode. (Any nonim- 

plemented character will also cancel 

ESCape mode.) 

sequence. The best way to learn 
about the tab stops is just to play with 
them. Note that a TAB command 
does not wrap the cursor to the fol- 
lowing screen line. Tabbing to the end 
of a line simply leaves the cursor at 
that position, 

Another change is worth noting. 
The CONTROL J ( CHR$(10) ) code 
generates a linefeed without a car- 
riage return. On the C-64 and VIC 
20 both a linefeed and carriage re- 
turn will be produced. 

The remaining unique C-128 
CONTROL codes are associated 
with the 80 column display. 
CONTROL B ( CHR$(2) ) turns un- 
derline on . However, there is no cor- 
responding CONTROL sequence to 
turn it off. You will have to PRINT 
CHRS(OO) to cancel underline mode. 
The 80 column characters can be set 
to flash by using a CONTROL 
( CHR$(15) ). As with underline 
mode, there is no CONTROL se- 
quence to turn flash off. Use PRINT 
CHRS{143). 

Continued on page 74 
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By Dale Rupert 

aeh month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. Wc invite you to send your solutions to: 

Commodores, c/o Ahoy! 

P.O. Box 723 

Bethel. CT 06801 



ing statement number (I) is false. For extra credit, de- 
termine how many of the original eight conditions can 
be eliminated and still have only one solution. 



We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the name and number of the problem you 
are solving. Also show sample runs if possible, where 
appropriate. Be sure to tell what makes your solutions 
unique or interesting, if they are. Programs on diskettes 
are welcome, but they must be accompanied by listings. 
You must enclose a stamped, self-addressed envelope if 
you want any of your materials returned. Solutions re- 
ceived by the middle of the month shown on the maga- 
zine cover are most likely to be discussed, but you may 
send solutions and comments any time. Your original pro- 
gramming problems, suggestions, and ideas are equally 
welcome. The best ones will become Commodores', 



Problem #21-1: Geometry Fun 

This challenge was suggested by Phil MacLean (Co- 
lumbus, OH) . The user inputs three ordered pairs of num- 
bers (xy values in Cartesian coordinates), and the com- 
puter tells whether or not they represent collinear points. 
The three points are collincar if they lie on the same line. 
If they are, the computer tells which lies between the 
other two on the line. Any values of x and y are allowed. 
Better dust off the geometry books! 



Problem #21-2: Logical Fun 

Michael P. Marron (Stony Brook, NY) submitted this 
Commodore. Four students were discussing their upcom- 
ing report card marks. They made the following state- 
ments: 

AL: (1) We'll all get different marks. 

(2) If I get a 95, then Connie will get a 65. 
BETTY: (3) If Connie gets a 75, then Al will get a 65. 
(4)A1 will gel a better grade than Dan. 
CONNIE; (5) If Betty doesn't gel a 95, then A I will get a 75. 
{6) If 1 get an 85, then Dan won't get a 65. 
DAN: (7) If Connie doesn't gel a 95, then I'll get an 85. 
(8) If Betty doesn't get an 85, then I won't cither. 

Your task is to write a program which (A) determines 
the mark for each student assuming the above statements 
are all true, and (B) finds all possible solutions assum- 



Problem #21-3: Decimal Columns 

E. Harvey Hammett (Houston, TX) asked for a short 
method of lining up decimal points when numbers are 
printed in a column. Your routine should print on the 
screen, but it should also be usable on a printer. That 
means you are not allowed to use any cursor movement 
keys. If the user enters 12.5, 134.56, .0026, 23, and 1.234, 
the computer prints out: 

12.5 
134.56 

.0026 
23 
1.234 



Problem #21-4: REM Remover 

Jim Speers (Niles, MI) has sent a five line subprogram 
which may be added to the end of another program be- 
ginning at line 55000. When the user types GOTO 55000, 
this subprogram deletes all lines beginning with REM 
or a colon. Jim uses this subprogram in debugging. Any 
trace statements to print variables or to STOP the pro- 
gram may be preceded by a colon. They will be execut- 
able, but when debugging is done, they may be removed 
simply by typing GOTO 55000. Can you come up with 
such a program? 



This month wc have readers' solutions to the May 1985 
Commodores, Problem #17-1: Decimalizing Dales brought 
a grand total of three responses. The problem is not real- 
ly very difficult, and it is a "real world" problem. Busi- 
ness programs typically use a decimal form of a date rath- 
er than a "month, day, year" format for internal calcula- 
tions. The solution from Jim Speers (Niles, MI) is listed 
below. Jim claims that mid-1985 should be listed as 1984.5 
since he considers the first year as 0. Midway into the 
first year should then be 0.5. We'll leave it up to you to 
modify the program if you want mid-1985 to be shown 
as 1985.5. 

1 REM 
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2 REM PROBLEM #17-1: DECIMALIZING DATES 

3 REM SOLUTION BY JIM SPEERS 

4 REM 

100 DIMD(12),I$(3):F0RI=1T012:READD(I):N 
EXT 

110 DAT AO, 31, 59, 90, 120, 151, 181, 212 ,243, 2 
73,304,334 

120 PRINT" [CLEAR] [DOWN] ENTER DATA (E.G. 
10/5/1985)"; :INPUTA$:K=1:F0RI=1T0LEN(A$) 
130 Z$=MID$ ( A$ , I , 1 ) : IFZ$="/"ORZ$="-"THEN 
K=K+1: GOTO 150 
140 I$(K)=I$(K)+Z$ 

150 NEXT:M=VAL(I$(1)):D=VAL(I$(2)):Y=VAL 
(I$(3)):LY=0 

160 IFY/4=INT(Y/4)ANDY/400<>INT(Y/400)TH 
ENLY=1 

170 DT=Y-l+((D(M)+D-LY*(A>2)-.5)/(365+LY 
) ) : DT=INT( DT* 1 0000+ . 5 ) / 10000 
180 PRINT :PRINT"THE DECIMALIZED DATE FOR 
"A$" IS": PRINT: PRINTDT 

Jim's program calculates the decimalized date as of 
twelve noon, hence the -0.5 in line 70. Each hour is 
0.000114 part of a year. Line 160 tests for leap years. The 
DATA statement stores the number of cumulative days 
in months prior to the given date, David Alan Wright 
(New Britain, CT) and James Borden (Carlisle, PA) also 
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sent solutions. Both Jim's and David's programs allow 
the user to enter dates in mm/dd/yr or mm-dd-yr format . 
Several readers tackled Problem #17-2: Printer Sentin- 
el. The solution from Brian J. Wilcox (Cold water, OH) 
is listed. Since his program is similar in approach to many 
others, 1 concluded that it must work -on some printers 
at least. It doesn't work on mine. A modified version 
of Brian's program is also shown, which works on my 
Epson MX-80 printer with a serial-to-parallel converter. 

1 REM 

2 REM SOLUTION TO C0MM0DARE #17-2 

3 REM PRINTER SENTINEL 

4 REM SUGGESTED BY BRIAN J WILCOX 

5 REM 

10 PRINT CHR$(147) 
20 GOSUB 100 

30 PRINT"THE PRINTER IS ON" 
40 END 

100 0PEN4 t 4:PRINT#4iCL0SE4:IF NOT (ST AND 
-128) THEN RETURN 

110 PRINT" [HOMEjPRINTER IS NOT ON LINE" 
:G0T0 100 

1 REM 

2 REM SOLUTION TO C0MM0DARE #17-2 

3 REM PRINTER SENTINEL 

4 REM MODIFIED 

5 REM 

10 PRINT CHR$(147) 
20 GOSUB 100 

30 PRINT"THE PRINTER IS ON" 
40 END 

100 PRINT" [H0ME]THE PRINTER IS NOT 0N":0 
PEN4.4: PRINT#4 

105 PRINT#4:IF N0T(ST AND -128) THEN 
PRINT "[HOME] ":R 

ETURN 

110 CLOSE 4: PRINT" [ HOME ]PRINTER IS NOT 
N LINE": GOTO 100 

Even when my printer is off, the computer can sent 
it one message without the STatus variable indicating any 
problem. If the program sends a second message, the 
computer sits and waits forever at the PRINTS statement. 
Consequently I couldn't display a "Printer Off message 
if the printer was off. Instead I had to display the "Print- 
er Is Not On" message before writing to the printer, and 
if the printer was on, the message was quickly erased. 
If the printer is off, the message remains on the screen 
until the printer is turned on (or online). If neither of 
these routines works for your printer, you might compare 
ST with instead of -128. Refer to the STatus descrip- 
tion in the Programmer's Reference Manual. 

Other solutions to this problem came from Ron Giedd 
{Sioux Falls, SD), Clarice A. Baker (Kami oops, BC), 
Jim Speers (Niles, MI), James E. Borden (Carlisle, PA), 
and Lonnie Welch (Independence, MO). 
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The most compact solution to Problem §17-3: MID$ 
Statement came from Ken Karow (Chicago, IL). Ken in- 
cluded some sample strings for testing the routine. The 
value of N tells how many characters of Y$ are used to 
replace characters of X$ starting at position S of X$. This 
can be a very useful routine. 

1 REM 

2 REM SOLUTION TO COMMODARE #17-3 

3 REM MID$ STATEMENT 

4 REM SUBMITTED BY KEN KAROW 

5 REM 

100 Y$="ABCD":S=4:N=3 

110 X$="1234567" : G0SUB200 : PRINT S,N, 
X$:INPUT"START, NUMBER" ; S , N : GOTO 110 
200 IF N=0 OR N>LEN(Y$) THEN N=LEN(Y$) 
210 X$=LEFT$(LEFT$(X$,S-1)+LEFT$(Y$,N)+M 
ID$(X$,S+N),LEN(X$)) : RETURN 

The most popular Commodore was Problem ft 17-4: 
Number Speller. Solutions ranged from the reasonably 
short one by Rob Lackey (Albuquerque, NM) listed below 
to multipage programs. 

1 REM 

2 REM SOLUTION TO COMMODARE #17-4 

3 REM NUMBER SPELLER 

4 REM SUBMITTED BY ROB LACKEY 
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5 REM 

10 DIM D$(30):F0RI=1 TO 30: READ D$(I):NE 

XT 

20 INPUT" [CLEAR] ENTER NUMBER (<10000)";N 

30 A=LEN(STR$(N))-1:0N A GOTO 90,60,50,4 



40 N$=D$(INT(N/1000)+1)+" "+D$(30)+" " 

50 V=(INT(10*(N/1000-INT(N/1000)))+1) :IF 

V>1THEN N$=N$+D$(V)+" "+D$(29)+" " 

60 T=N-100*INT(N/100):IF T>19 THEN 80 

70 N$=N$+D$(T+1):G0T0 100 

80 N$=N$+D$(INT(T/10)+19)+" " 

90 N$=N$+D$(N-10*INT(N/10)+1) 

100 PRINT N$:END 

110 DATA "", ONE, TWO, THREE, FOUR, FIVE, SIX 

120 DATA SEVEN .EIGHT, NINE, TEN, ELEVEN 

130 DATA TWELVE, THIRTEEN, FOURTEEN 

140 DATA FIFTEEN, SIXTEEN, SEVENTEEN 

150 DATA EIGHTEEN, NINETEEN, TWENTY 

160 DATA THIRTY, FORTY, FIFTY, SIXTY 

170 DATA SEVENTY, EIGHTY, NINETY, HUNDRED 

180 DATA THOUSAND 

Rob's program handles numbers up to 9999. Other solu- 
tions went up to billions and beyond without much addi- 
tional coding. Perhaps you can modify Rob's program 
to handle even larger numbers. This program might be 
useful for writing checks. 1 have used this type of pro- 
gram with a speech synthesizer. The speech synthesizer 
pronounces words which are sent to it in PRINT state- 
ments, so multidtgit numbers must first be converted into 
text strings to be spoken properly. 

Solutions to these last two problems came from the 
following readers not mentioned earlier: 

Mac Reiter {Mustang, OK) Steve Workman (Pcrrysburg, OH) 

M,B. Lanphear (Cheyenne, WY) William Mariganaro (Ctr. Moriches, NY) 

William Binder (Northvitle, Ml) 
Jerry Anderwn (Florence. AL) 
Tony Hcrringluii (Jcffersonville. IN) 
Sheldon C. Weiring (Palmcrton. PA) 
Michael J, Slrawn (Warren, MI) 
Paul A. Dobransky (Fombcll, PA) 
Richard Oberle (Columbus, OH) 
Nancy Balfour (Honolulu, HI) 

Special thanks to Ricardo Chan from the Republic of 
Panama and to Daniel R. Propst from Caracas, Venezu- 
ela for their letters and programs. It is exciting to see 
how far-reaching Commodore computers and Ahoy! mag- 
azine are. 

One final note. Lonnie Welch (Independence, MO) 
gave one example of a mandatory space in BASIC, This 
statement using the logical OR of variables F and Q re- 
sults in a Syntax Error. Do you see why? 

10 F=0;Q=1 : PRINT F0RQ 

Have you come across any other situations where BASIC 
requires a space? If so, let us know. This month's prob- 
lems should keep you busy for a while. See you next 
month. □ 



Thomson Fung (San Diego. CA) 
Paul DeLuca (Bradford, MA) 
fid Taylor (Waukesha, WI) 
Carlton Burton (Easton, TX) 
R.R. Goings (Washington, IL) 
Darin Jeit (Paducah. KY) 
Crile Carvey (Salinas, CA) 
Clav R. Reed (Edwards, CA) 
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AUTO-GEN 



Automated Generation of DATA Statements on the C-64 

^^^^^^^—^^— BY DAVID A. JONES ^——— 



Incorporating machine language routines into 
BASIC programs is often used to increase pro- 
gram execution speed. Sometimes the machine 
language is a separate program called and loaded 
by the main BASIC program. This requires two or 
more programs always to be on the disk, and making 
duplicates can become a chore. A common alternative 
is to store the machine language program as a series of 
DATA statements. This is a tedious task if these state- 
ments arc typed in by hand. While the routine is under de- 
velopment, or should the need to modify it later arise, one 
simple change could necessitate retyping the entire sequence 
of DATA statements. Some form of automation is in order 
here, and the Auto-Gen utility program is my solution. 

WHAT IT DOES 

Once a machine language program is in memory, usual- 
ly from the output of an assembler, just load and run 
Auto-Gen and the DATA statements will be automatical- 
ly generated and written to disk for you. The program 
prompts you for the addresses of the First and last mem- 
ory locations to be saved. These may be entered in deci- 
mal or. if preceded with a S (dollar sign), in hexadecimal. 
Next you are asked for the starting BASIC line number. 
(Be sure not to use the same line numbers that are used 
by the main portion of the program underdevelopment.) 
You are then asked for the number of data items desired 
per line, and finally the name of the output file you want 
to create. 

While the program is running, it displays the line num- 
ber being generated to inform you of its progress. 

HOW IT WORKS 

A quick review of how a line of a BASIC program is 
stored in the computer will help us understand the task 
to be accomplished. The normal starting location for the 
C-64 is 2049 ($0801). The byte here plus the following 
one make up a link or pointer to the beginning of the 
next line of the program, This link is the "low byte first, 
high byte second" format typical of 6502 machine lan- 
guage. This address can be converted to decimal by mul- 
tiplying the second, or high byte, by 256 and then add- 
ing the first, or low byte, to the product. Conversely, if 
we have the decimal value we can obtain the two bytes 
by dividing by 256. The integer quotient is the high byte, 
and the remainder is the low byte. Our formula will be 
HB=INT(NL/256): LB=NL-(INT(NL/256) ), where 
HB is the high byte, LB is the low byte, and NL is the 
address of the start of the next line. 



The next two locations hold the number of the current 
program line. Again, the number is stored in low byte- 
high byte formal and the same formula is used to con- 
vert lo and from decimal. 

The rest of the line contains the BASIC program state- 
ments. Each BASIC keyword is stored as a token, i.e., 
reduced to a one byte symbol. This has a twofold pur- 
pose. One is to reduce memory requirements and the sec- 
ond is to simplify interpretation during program execu- 
tion. For our needs, the token for "DATA" is 131 in deci- 
mal ($83 in hex). Spaces, commas, and literals (num- 
bers or letters representing their own value as opposed 
to variables) are stored in their ASCII form. The num- 
bers through 9 are 48 through 57 respectively. A com- 
ma is 44 and a space is 32. The end of the line is indica- 
ted with a zero byte, and the last line of the program is 
terminated with three consecutive zero bytes. 

With this limited knowledge we can construct our own 
BASIC "DATA" statements. Since one numeric data item 
can have a maximum value of 255, we will allocate one 
memory location for each digit or three locations per 
item. Each item must be separated by a comma, so add 
one per item except for the last one on a line. 

Include in our tally 2 for the link to the next line, 2 
for the line number, 1 for the DATA token, and 1 for 
the terminator, and we have the following formula. 2+2+ 
1+4*ND+] = the number of memory locations required 
to store one program line, ND is equal to the number 
of data items desired on each line. Add this number to 
the address of the beginning of the current line and we 
have the address of the start of the following line. NL 
will be the variable in our program that holds diis address. 

If we want to increment the line number by 10 we sim- 
ply add 10 to the previous line number. LN is the vari- 
able here. When we reach the end of the program add 
two zero bytes to the one that terminates the last line and 
our work is almost done. 

A program stored on disk or tape has as its first two 
bytes an address indicating where the program should 
be loaded. This is low byte-high byte format again and 
for our purposes the address is a constant. The C-64 us- 
es 2049 (S0801) and the VIC 20 1025 ($0401). 

That's about all we need to know to create a file of 
DATA statements directly on disk. 

We assemble and load our machine language file into 
memory, note the first and last memory locations used, 
and we're ready to begin. 

A loop that starts with the first data location and in- 
crements by the number of data items per line until the 
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Confused by Mail Order Ads??? 

Price is nut the only concern. You should ask . . . 

1 . Do you have the advertised product in stock? 

2. If the product is defective who handles the warranty? 

3. What is the total price delivered to my door? 
For the straight answers lo these 
and nil your questions, call us! 

■ftp •■ 



]}UL 



n 



new c-128::: 

Call for pricing, 
availability & software. 

! .Ill II -MM hi 




Send Self Address Stamfied Business Envelope for 
Complete Product List!!! C-f>4 Hardware' still available. Call! 

C-l 28 HARDWARE 

1 700 12SK Expander 157 1 Drive .... 350K DS/DD 

1750 384 K Expander 1670 Aulo Modem . . 1200 Baud 

1902 Color Monitor 13" RGR'Composile . . . 80/40 Column Display 

Teknika MJ22 Same Specs as 1902 S289 

1350 Mouse Eases Computer Input 

C-l 28 SOFTWARE 

JANE Integrated Software for use with 1350 

Perfect Calc/Wriler/ Filer, Powerful CP/M Business Software 

PRINTERS 

l imiiiiiiiiiii imi Hi' 




STAR sgio 



at Nfe 

KIQ Ma 



CALL! 



msm 



Powertype Dilsywheel 18 CTS 

wilhCardcoB S354 

DPS 1101 Daisywhccl 

Direct Connect lo C64 , 



Zenith ZVMGr/Amb 



. L4iii]|ilrli' \i'U-{.1iMii of rjhlmns 

Okiclutu 182 Call 

MW-350 Interface .... Call 

RitemunC + Call 

. .Call 

MONITORS 
$89/99 Teknika MJ 10 $189 



MODEMS 

Commodore 1660 .... $59 Wcstridge 6420 Call 

Mighty Mo ... Call VIP Terminal Call 

CompuServe Starter Kit & VidtCX liolh fur 39.95 

ACCESSORIES 

Com Cool Drive Fas $49 Power Pak $27 

Com Cool Plus w/ surge ... 69 Surge Protector 4-Flug ... 25 

• SPECIAL • Xidex Diskettes SS/DD$ 10.95 • SPECIAL • 

BLACK NAUGAHYDE COVERS 

C- 128 or 1571 Drive m. $ 7 

C-64 or 1 541 Drive . . . ea. $5 1 702 Monitor 10 

MSDDrivcsl/2 5/6 1525/MPS801 7 

Gemini 10X 9 1 526/MFS 802 8 

DATABASE MANAGERS 

The Consultant $59 PFS:File $39 

Super Base 64 49 PFSiRepor! 49 

WORD PROCESSORS 

Paper Clip/St speller $55/69 Easy Script $35 

Fleet System 2 Call Easy Spell 17 

MOiT ORDERS SHIPPED WITHIN IS HOURS' Admliatd pricei iir (lit tank check or unney order. 
VBWMC orders acid 3.5%. MO C.O.I) ORUJIi Petional « nmfttij cheekl dtlay Oldtri II dayr. All tiln 
lit l:nal - dcfrclivc rocrrhandisc exchanged [or um; produel only C'jll for Tr1u;u author Jul urn numher All 
relumed producli are jubjtcl to a rritockini ire unless ihcjf arc defective and relumed fur exact exchange In 
the tonlinenta] U.5 add S% lur shipping (i2 SO r::irj I Please call I.'? shipping nn monjlors. Ohio residents add 
5.5% sale* lai. Prices & ataiiabilily lubjrtf Its chmgr 

HOURS: MONDAY l-rUDAY I t AM to 7 I'M ■ SAHWIAY IC) AM In 3 I'M 



ORDER 
LINE: 



800-638-2617 



INFORMATION & IN OHIO 2 16/75 80009 




1301 BOARDMAN POI-AND ROAD POLAND, OHIO 445 14 

Reader Service Ho. 133 
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last location is reached will be the main loop of our util- 
ity. This loop keeps track of the start locations of each 
line and the line numbers themselves. It writes the first 
part of each line to disk up to and including the token 
for DATA and additionally writes the line number to the 
screen to show the user the progress of the program. 

Inside the main loop a smaller loop, incrementing by 
one up to the number of items per line, creates each item 
for the DATA statements. Internal to this loop is a third 
loop to step through the conversion of data items into 
ASCII characters and write them to disk. 

Last is a counter to determine where to insert com- 
mas. We don't want a comma after the last item on a line. 

Prior to entering the main loop of the program, the 
disk file is opened and the program load address is writ- 
ten. Each iteration through the loop writes a program 
line and at the end of the loop the program terminator 
is written and the file is closed. 

Two subroutines are used. One does the error checking 
on the disk file and the second is to allow hexadecimal 
inpuLs for the first and last memory locations to be saved. 
Since the main function of this program will be saving 
machine language routines, a hexadecimal input will prob- 
ably be the norm. Hexadecimal input numbers must be pre- 
ceded with a dollar sign to distinguish them from decimal. 

Once the file is on disk it can be edited just like any 
other, or appended to an existing file. 

Existing programs that have an unequal number of data 
items per line or that for some other reason need to be 
reformatted can also benefit from this program. Simply 
load the old program and let it POKE in the data. Then 
load Auto-Gen and let it do its work. Finally reload the 
original program, delete the old DATA statements, and 
append the new. The result is a neatly formatted pro- 
gram with an equal number of DATA items on each line. 

VARIATIONS 

1 like my program listings to be neatly formatted and 
easy to read. Consequently, I have no reservations about 
including spaces and blank lines to achieve this end. Lines 
1560, 1580, and 1470 in the program would be the ones 
to change if you absolutely must have files without lead- 
ing spaces on data items less than three digits. 

The choice of the number of data items on each line 
is arbitrary, but a few points should be considered. 10 
is a nice round number and helps us count items easily. 
16 is a good choice when working with machine language 
as it allows quick conversion to hexadecimal . 17 fiis the 
maximum number of a C-64 program line and 19 does 
the same for a VIC 20. 

Incidentally, the sample output of this program is the 
first pan of the DOS Wedge 5.1. It was created by sav- 
ing from 52224 to 52273. To store the complete wedge 
use 53081 as the end address. Don't be surprised at the 
length of the resulting program, though. Using DATA 
statements to store machine language programs is most 
inefficient. □ SEE PROGRAM LISTING ON PAGE 89 



DRAGON TYPE 



For the C-64 

By Bob Spirke 



Computer programming offers the frustrat- 
ing paradox of not lending to one's typing 
skills. After months or even years of pro- 
gramming, many of us still cannot type 
with any speed. This is especially apparent 
in telecommunications, where each party takes turns plod- 
ding letters on the screen. And when it comes to word 
processing, we suffer the same inertia. 

Fed up with my own keyboard struggles, I went and 
bought a typing-drill program. This was a neat setup 
where you shot down a flying saucer by correctly typing 
in words. After each session, your speed, accuracy, and 
score were given. This, along with color and sound, 
helped to assuage the drudgery of practice. And the drills 
worked. In a few weeks I was typing faster and more 
accurately. But in time, I became bored with typing the 
same words. Besides, wouldn't it be better to type a va- 
riety of words? Unfortunately, I could not change the 
words, since the program was copy-protected. 

Keeping this in mind I wrote my own typing-drill pro- 
gram. It includes the best features of the other, but it 
allows you to change the words. This provides you with 
an unlimited number of skill levels. If you find the words 
thai I chose too difficult or too easy to type, or you sim- 
ply become weary of them, replace them with your own. 
With Dragon Type you can also practice typing symbols: 
it accepts ASCII codes 32 to 90. 

Nor did I stop there, I replaced the flying saucer and 
laser gun with a dragon. Using the magic of machine 
language, I brought the little beast to life so that it could 
run across the screen and eat words. How well he's fed, 
though, is up to you, for he can only eat those letters 
that have been correctly typed. 

Dragon Type consists of two programs: the first is in 
machine language and the second in BASIC. Type in and 
SAVE both programs. Now RUN the first program. Alter 
the machine language is LOADed into memory, the sec- 
ond program is automatically LOADed and RUN, Then 
the fun begins. 

First, the dragon docs a quick warm-up: then you're 
asked to choose a level. There are three animation speeds. 
While a novice can use the fast level, he may feel intim- 
idated by a frantically paced sprite. On the other hand, 
a good typist might find that a slow sprite cannot keep 
up with his speed. Once your choice is selected, words 
fill the screen. 

Now enters the dragon. He emerges from the left side 



of the screen, races to the first word, and stops. Poised 
over the first letter, he snaps his jaws wide open and awaits 
your command. Tap in that letter, and the dragon gulps 
it down and moves on to the next letter. Continue typing 
and the letters disappear as the voracious creature munch- 
es them (he cats spaces, too). Press the wrong key and 
a beep is sounded, signaling an incorrect entry. (You can 
abort the meal by pressing 17.) At the end of each line, 
he speeds off the screen only to reappear on the next 
line, ready for another course. Once your dragon con- 
sumes all the words, the screen displays your speed and 
the number of typing errors. Also shown is your score 
and your highest score: these reflect both your speed and 
accuracy. To go another round, just press the space bar. 
Pressing RETURN ends the program. □ 

SEE PROGRAM LISTING ON PAGE 88 



PR INTER INTERFACES 

G-Wiz CALL 

Cardco B $49.95 

Turbo Print $79.95 

MODEMS 

Westridge Auto- 
modem S69.95 

Modem 300 (1660) $79.95 

MPP 1064 C64 . , . $79.95 

Total Telecommuni- 
cation $39.95 

PRINTERS 

Epson Homewriter 

with Interface . $299.95 
Commodore 803 . S179.95 
(tractor feed 

option) $ 29.95 

Commodore DPS 1101 
(Daisy wheel) ... $299.95 

Star SG-10 $224.95 

Panasonic 1D91 . $299.95 
Citizen MSP-10 . . $329.95 
G.E. Printer .... $219.55 

MONITORS 

C128 CALL 



1702 Color $199.95 

Gorilla (green) . , $ 79.95 
Gorilla (amber) .. $ 89.95 
Sakata Color. ... $179.95 

SOFTWARE 

Word Processors 
Paper Clip 

(w/spell) $79.95 

Word Pro 3 +(64) $39.95 

Write Now $34.95 

Databases 

Superbase64 .... $69.95 
The Consultant . .. $74.95 
Spread Sheets 

Cal. Kit $39.95 

Calc Result $69.95 

Utility Software 

Print Shop $29.95 

Floppiclene Head 

Cleaner $12.95 

Mach5 $24.95 

Please call for any special 
requests! 



COMPUTER 
WAREHOUSE 

(In FL) 305-274-3680; 1-800-372-0214 
7222 S.W. 117th Avenue, Miami, FL 33183 

mmum affctt. or ROd 3% *Qf Shipping arid handling CharfjHS ArJ pricai roTlo>ct 3% cash discount. 
Credit curd orders should add £% Pvicos subject la change wiihcuT notice 
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FILE LOCK 

Scratchproofing for Your C-64 Programs 



BY DON LEWIS 




aw many times have you scratched a file, 
and then immediately regretted it? If you're 
like me, I'll bet a lot of times. Lately there 
have been several UNSCRATCH utilities 
published, but that's a pound of cure. 
What's really needed is an ounce of prevention and that's 
where File Lock comes in. 

File Lock provides a scratchproof feature for the 1541. 
Built into the DOS, but kept secret by Commodore, the 
1541 has the ability to lock out the scratch command on 
a file by file basis. This LOCK/UNLOCK is not sup- 
ported by any built-in commands in the 1541, but is avail- 
able through a utility like File Lock. 
File Lock has a very convenient user interface. When 



MERLIN 64 

TH E BEST MACRO ASS EMBLER FOR TH E COMMODORE 64 

Easy to use for the beginner or professional, Merlin 64 Is 

an extremely powerful macro assembler. 

Just a few of Its features Include: 

• Fast assembly times 

• Word processor like editor 

• Conditional assemblies. 
Optional assembly to disk 

• Includes Sourceror. an easy to 
use disassembler that creates 
Merlin 64 source files from 
binary data 

• Macro library of common 
operations 

• Cross Ref. utility program 

• 80 column display 
compatibility 




"This is the best assembler I've seen for the Commodore 64. . . " 
Wra. Sanders /Assembly Language for Kids 

". . .an outstanding value. . . I can't imagine how it could 

be better." 
^ A /"\ /"\ C J$J C Peterson /AHOY! Magazine 

hP^T */ • ^ yj ■Plus J3.00 Sapping. CA Rtt fttkt 6* Sales Luc 

Ask your local dealer for details, or just write or call: 
' PUBLISHING/ INC 

P.O. Box 582 »Santee, CA 92071 • Telephone: 619/562-3221 
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you run Fife Lock, the program prompts you to insert 
a disk. It then reads the directory of file names from the 
disk. Two large boxes appear on the screen with the file 
names in them. Below the boxes is the command line'; 
The command line has the following commands avail- 
able: 



SCRATCH 


- scratch files 


LOCK 


- scratchproof files 


UNLOCK 


- remove lock 


PAGE 


— advance to next screen of files 


BOOT 


— restart program 


QUIT 


- exit to BASIC (READY) 



Choose the command you want by typing the first let- 
ter of the command word, for example. L for LOCK. 
After you have made your choice, a small arrow appears 
on the screen next to the first file name. Files are se- 
lected by moving this arrow around the screen with the 
cursor keys, HOME key, and RETURN key. Files selec- 
ted are highlighted in reverse video. Hitting the left ar- 
row key will cancel all the files selected and return you 
to the beginning of the program. 

After selecting the files, operation is started by hitting 
the first letter of the desired operation: S for scratch, L 
for lock, U for unlock. 

File Lock, works by modifying a bit in the file type byte 
in the directory entry for that file. (See page 67 of the 
1541 manual . ) As an example, a PRG file has a file type 
of 582(1000 0010) if it is not locked. When locked, bit 
6 is set, yielding SC2(1100 0010). 

Locked files are marked in the directory listing by a 
< symbol next to the file name. Once a file has been 
locked, the 1541 will send the error message 'FILE NOT 
FOUND' if an attempt is made to scratch the file. 

File Lock tends to be a bit sluggish in its operation since 
it is a BASIC program. However, when it is compiled 
with a BASIC compiler such as Blitz!, its performance 
is greatly improved. If you like File Lock, I would rec- 
ommend that you Blitz! it for the best performance. 

As with my other program in this issue (Fasinew, p. 
33), I wish to acknowledge the assistance of my col- 
leagues at R. J. Brachman Associates, Inc. (Havertown, 
PA) in developing this program. Please address any cor- 
respondence to D. Lewis, P.O. Box 521, Folsom, PA 
19033. Include a SASE if you wish a reply. □ 

SEE PROGRAM LISTING ON PAGE 93 



62 AHOY! 



RIEVIIEWS 



MANY WAYS TO SAY 
I LOVE YOU 

CBS Software 
Commodore 64 
Disk; $29.95 

Fred Rogers has used music and 
conversation to teach children to val- 
ue themselves and their families for 
almost 18 years on Mister Rogers' 
Neighborhood, the longest running 
program on public television. In an 
effort to expand the relationship be- 
tween parents and children, Many 
Ways to Say I Love You gives children 
an electronic forum to creatively dis- 
play their affections. 

All the songs in the program are 
easily recognized, either popular folk 
tunes or regulars from the show. My 
two year old had no problem singing 
along with Won't You Be My Neigh- 
bor and It's Such a Good Feeling. Be- 
fore long she had picked up Twinkle, 
Twinkle, Little Star and Frere Jacques. 

Ah! But what are the songs for, you 
ask? Many Ways to Say I Love You 
helps a child design and deliver an 
electronic greeting card, complete 
with moving pictures and music. The 
child can pick a message like "I think 
you're special" to appear at the top 
of the card type in text on the bot- 
tom. In this way, each card can be 
personalized. 

The graphics are great. Choice of 
"stickers" includes animals, trees, 
flowers, moon, stars, houses, a cas- 
tle, and residents of Mister Rogers' 
Neighborhood (including the trolley, 
Mr. McFeeley, and several characters 





Child picks background, border, more, 
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Lets tykes design and personalise (but 
not print) electronic greeting cards. 

from the land of make-believe) . All 
the stickers will perform some action 
while the card is being "delivered" 
Before choosing pictures to illustrate 
the card, a background and a border 
design can be chosen. 

There are two levels of difficulty: 
a full frills card or a simplified one 
with just background, stickers, and 
music. The simplified version is good 
for youngsters who have not yet 
learned to read. 

The program does have an option 
to save cards to disk. Up to 24 cards 
can be saved on your master disk; 
however, I wouldn't take the chance. 
CBS takes pains to explain the buy- 
er's rights in the program, and these 
rights include making a backup. 

While I'm skeptical as to whether 
this well-designed program will open 
any heartfelt chats between parents or 
children, it does offer a chance for 
closer interaction. Any parent who 
buys it should be prepared to spend 
time listening to cards. There is no 
printout option, so you won't be able 
to send greetings to friends and fam- 
ily around the country. 

If nothing else, my daughter has 
learned to sing two new songs. And 
the youngster I borrowed from down- 
stairs showed her mom that compu- 
ters can be used for something be- 



sides shooting aliens and learning to 
add and subtract. 

CBS Software, One Fawcett Place, 
Greenwich, CT 06836 (phone: 203- 
622-2500). -Cheryl Peterson 

ON-FIELD FOOTBALL 

Gamestar 
Commodore 64 
Disk; $29S5 

The popularity of football has lev- 
eled off on television, but there's a 
real boom underway in home com- 
puting. On-Field Football is only one 
of three pigskin programs scheduled 
for release in time for a fall kickoff, 
and at least one more is due early in 
1986. 

Unlike the other newcomers, 
which stress authenticity, On-Field 
emphasizes freewheeling fun. The 
media hype of the Super Bowl is 
light-years away from this brand of 
football . 

The inspiration for designers John 
Fitzpatrick and Scott Orr is not the 
National Football League, but rath- 
er the sandlot and pickup football 
games which fill youngsters' fall and 
winter afternoons. This is four- 
against-four, not big-time football. 

Don't expect to be able to mimic 
all the latest wrinkles in pro and col- 
lege football . The coaches in this one- 
or two-player contest can choose 
from a variety of offensive and de- 
fensive moves, but the true simula- 
tions like Super Bowl Sunday (Ava- 
lon Hill Game Company) and Tfte 
Worlds Greatest Football Game 




Players have individualized strengths. 
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ARCADE-STRATEGY-ACTION 
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MAGRA and GAMES CREATOR S19.99 



HIGH 



<$^0^ QUAUTYsOFTWARE 




BRINGS YOU BRAND NEW 
UNBELIEVABLE 

COMMODORE 64 DISKS 



» ADVENTURE J|_ EDUCATIONAL 



i HAsrt iriro'fr 



*i 



■v>,. 











II 



Kr.waM;ae;iij;n\. 






■/ 



-M 



» r 







::: : 




>^»' 



HASTTPWO 



■IB ggggg 









is 



- ■■ * ■ 



X 





n 





: J I f I J ' 






: !IJI 





Thii h b 1 iQKlnfnrerirJK* k\ I 
"h a | 



!■■■■■■■ 

iled&iot prices ! 

Look for MASTERTRONIC programs at your local computer dealer 

or mass merchant. For more information write or call (301) 695-8877 

MASTERTRONIC INTERNATIONAL INC. 

731 IB Grove Road, Frederick, Maryland 21701 

fielder Service No. US 
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56 


Ate Software 


121 


8 


Alpha com 


135 


74 


Alsnft 


115 


26 


APCAD 


111 


60 


Rig Bytes 


L13 


12 


Broderbund Software 


150 


54 


Cambria 


109 


63 


CBS Software 


IU2 


50 


Central Point Soft ware. Inc. 


125 


31 


Comal L'«n Group, USA, Ltd, 


- 


47 


Commodore Business Machine* 


101 


7 


Commodore Business Machines 


104 


39 


Computer Management Corp. 


117 


61 


Computer Warehouse 


108 


30 


Covoji. Inc. 


124 


79 


Custom Programming Group, Inc. 


128 


58 


CVC Online 


m 


29 


Digilal Vision, Inc. 


126 


67 


Digilal Vision, Inc. 


105 


11 


Duniap Boat Mfg. 


106 


57 


Floppy House 


143 


15 


Full Circle Software 


130 


63 


Gamestar 
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Genesis Computer Corp. 


134 


17 


ties ware 


132 


16 


lnlcgrated-Soflwarc Syslcnts 


142 
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Jason-Ranheim 


151 


41 


Jason-Runhclm 
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Mastertronic International Inc. 


145 


36 


McgaSolt Limited 


148 
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MegaSoft Limited 


149 
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Micron Technology, Inc. 
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Navarone Industries, Inc. 


146 


22 


N-Systems 


112 
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Nth Digit Solution 


112 
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Parsec Research 
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32 


Post Technology 


152 


46 


Professor Jones 


160 
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Prntectn Fnlerpri/es 


147 


53 


Quorum International, Unlit). 


131 


21 


R,J. Braclunan Associates, Inc. 


123 


78 


Robin's Software 


127 


62 


Roger Wagner Publishing, Inc. 
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Sakata U.S. A. Corporation 


136 


10 


Sierra On-I.ine, Inc. 


137 
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Sierra On-Linc, Inc. 


138 


72 


Solid Slate Software 


118 


11 


SonJture, Inc. 
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SubLOGIC Corporation 
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TPUG 


162 


13 


Talktronics, Inc. 


163 


14 


Tene\ Computer Fx press 


157 


72 


T&l) Subscription Software 


116 
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Ultrabytc 


119 
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Unique Wood Products 


140 


32 


Universal 


161 


70 


VMC Software 


120 
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Wedgewood Rental 


114 
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W : hlie House Computer 


141 


69 


Xetec Inc. 


129 
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(Epyx) boast significantly heftier 
playbooks. 

Joystick control makes On-Field 
Football exceptionally easy to learn 
and play. The coaches create each 
play by following a series of onscreen 
prompts. On offense, the gamer 
pushes the joystick forward, back, 
left, or right to select one of five pos- 
sible formations: "I" right (run), T 
left, split left (pass), slot right (pass), 
and kick. Then the offensive coach 
individually programs the video ath- 
letes who are going to run with the 
ball or catch it. Finally, the compu- 
tcrist can revise the play at the line 
of scrimmage by calling an audible. 
Pressing the action button when 
prompted to do so changes the in- 
structions for the halfback or the 
wide receiver, depending on whether 
it is, respectively, a running or pass- 
ing play. 

Coaches issue orders to the defense 
in the same way. The display prompts 
the gamer to choose separate options 
for the rush and secondary. The de- 
fense can call an audible to change 
the pass coverage at the last second. 

Once both teams complete play-se- 
lection, the action button snaps the 
ball to start the action phase. The of- 
fensive coach controls the passer with 
the joystick and employs a simple sys- 
tem to hand off the ball on running 
plays or choose between the two eli- 
gible receivers when putting the pig- 
skin into the air. The defensive coach 
guides the free safety with the stick 
and can even try to blitz the quarter- 
back for a big loss. 

The players are more than just an- 
imated cursors in On-Field Football. 
As in the same publisher's On-Court 
Tennis, the coaches pick individual 
players from a roster of possibilities 
prior to the opening whistle. For in- 
stance, there's a choice between the 
slick-passing "Pinpoint" Pepper and 
the more mobile "Scrambles" Smith. 
The teams can bring in replacements 
for tired players between the third and 
fourth quarters. It's too bad that the 
same concept wasn't extended to in- 
clude members of the defense, who 
remain anonymous. This makes the 
game much less involving when the 
other team has the ball. 

The playfield is oriented so that the 



team with the ball always moves up 
the screen against defenders protect- 
ing the goal line at the top. When pos- 
session changes, the teams swap placas. 

Gamers traditionally favor football 
programs in which the action moves 
sidc-to-side, but this attempt is more 
successful than most previous tries. 
The traditional complaint against ver- 
tical gridirons is that they don't pro- 
vide enough room for passers, run- 
ners, and receivers to maneuver. The 
designers of On-Field Football have 
made the players as small (relative to 
the size of the field) as practical to 
minimize this. Most computerists will 
still prefer horizontal football fields, 
but the overall effect isn't bad. 

The most useful of a batch of spe- 
cial features lets players choose be- 
tween regular 15-minute quarters and 
shorter 5-minute ones. The program 
also allows each coach to call three 
time-outs during the game. It is also 
possible to "pause" play entirely when 
the phone rings or nature calls. 

Like other Gamestar titles, On- 
Field Football takes practice to mas- 
ter. (Not, however, quite as much as 
Starbowl Football, also by Gamestar.) 
Computer sports fans who want an 
action-oriented football contest, rath- 
er than one which relics on pure strat- 
egy, are the most likely to enjoy this 
clever game. 

Gamestar, Inc., 1302 State Street, 
Santa Barbara, CA 93101 (phone: 
805-963-3487). -Arnie Katz 

COMPUTEREYES 

Digital Vision Inc. 
Commodore 64 
Hardware, disk; $129.95 

There is an old saying that a word 
is worth a millipicture. Nothing 
brings this truth home more clearly 




than working with digitized images. 
On the Commodore 64 a word is ac- 
tually worth even less, at most an 
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eighth of a millipicturc. If color is 
considered, the fraction can be as 
small as one tenth. Of course, the 
words we are talking about are eight 
bits or one byte each. Nevertheless, 
the veracity of the adage is brought 
home with a vengeance. 

The Computereyes Video Acquisi- 
tion system adds vision, without fore- 
sight, to the ever-growing list of pos- 
sible applications for the C-64. The 
system will allow you to capture those 
fleeting images and translate them 
into the 8-10,000 bytes needed to de- 
scribe a bit mapped image. 

The physical appearance of the 
package belies its impressive perfor- 
mance. Computereyes is an excellent 
example of what a clever design with 
good programming can accomplish 
when coupled with the capabilities of 
the 64. 

In keeping with this introduction 
we have included several screen shots 
which illustrate the capabilities of the 
system. The Chinese plates show how 
Wayne Schmidt used the information 
contained in a digitized DOODLE! 
image. The color and fine detailing 
were all added afterwards. We should 
all be familiar with the original on 
which the Washington head on page 
68 is based. The young lady below 
it is the cover model from another of 
this company's publications. 

THE HARDWARE 

The Computereyes module is a 
small black box that plugs into the 
user port. It serves as an interface be- 
tween any standard video signal and 
the computer. Suitable sources are 
video cameras, VCR's, video disc- 
players, or TV's with video outputs. 
The video signal is fed to a standard 




Color and fine detail were added 

(left) to a digitized DOODLE! image, 
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RCA type jack op the back of the 
module. One of the two controls al- 
lows for the tine tuning or synchron- 
ization to the video source. The ad- 
justment is non-critical and easily ac- 
complished with the supporting soft- 
ware. You will most likely find that 
the setting will not change for a par- 
ticular video source. 

The other control compensates for 
the relative strength or brightness of 
the signal . The brightness control has 
a direct effect on the appearance of 
the acquired image. We found the set- 
ting of this control to be critical but 
manageable. Small adjustments of the 
brightness control have a significant 
impact on the final image. 

THE VIDEO SIGNAL 

The images displayed on a TV are 
redrawn 30 times a second. Each in- 
dividual image consists of 512 hori- 
zontal lines. These are sequentially 
drawn from top to bottom of the pic- 
ture tube. Creating an image in this 
manner is called scanning. Each im- 
age or screen is built up from two 
passes of 256 lines each. The first 
pass fills the entire screen; the sec- 
ond fills in the gaps between the lines 
of the first scan . This arrangement is 
called interleaving. It follows that the 
ideal TV picture would be able to re- 
solve 512 discrete verticlc points. 
However, in practice this is not so. 

The capabilities of most TV's are 
about half of the theoretical maxi- 
mum. The newer "monitor" receivers 
are somewhat better, on the order of 
350 lines. The Commodore 1701 and 
1702 monitors fall into this class. 
Home VCR's are able to resolve about 
260 lines at this time, although bet- 
ter equipment is in the works. La- 
serdisc players generally exceed the 
resolving capabilities of the best TV 
sets. 

SELECTING A VIDEO SOURCE 

Since the Computereyes module 
merely acts as an interface, you will 
have to prtwidc it with a standard vid- 
eo signal , If you already have a home 
video system, with a color camera, 
then you're all set. In comparison to 
the overall cost of a complete video 
system, the S130 price of this pack- 
age is almost too good to pass up. If 



you do not have a home video system . 
a black and white video camera is 
your best bet. These are available as 
no frills units for use with closed cir- 
cuit television security systems. The 
Ikegami model ITCM0 Surveillance 
camera is a high quality unit of this 
type. It is available as an option from 
Digital Vision. The package price of 
camera and module is S350. Bear in 
mind that surveillance cameras are 
truly no frills devices, lacking any 
type of viewfinder or sound pickup. 

A home VCR is a less than ideal 
video source for this application. The 
process of acquiring a detailed im- 
age takes quite a few seconds and 
several tries as the brightness is line 
tuned. A stationary image must be 
provided for these several minutes. 
The freeze frame mode of a VCR 
provides less resolution than normal 
operation. Also, the VCR will auto- 
matically start running after five min- 
utes or so to prevent the wearing of 
a hole through the tape. A laserdisc 
player should make a very good 
source. These devices provide a very 
high quality single frame image for 
unlimited intervals. 

A color video camera will work 
well. You may want to use its associ- 
ated VCR as an intermediary device 
to avoid the cost of an additional ca- 
ble and adapter. We did all of our 
tests with the Ikegami camera. 

A BIT OF A PICTURE 

The Commodore 64 has the ability 
to create a graphic image composed 
of 320 horizontal dots by 200 verti- 
cal dots. This is a bit-mapped image, 
which means that each one of these 
64,(XK) dots or pixels corresponds to 
a single bit of computer memory. 
This is where we get the 8.000 bytes 
or words mentioned above. A total of 
16 colors may also be displayed. The 
color information requires another 
1,000 bytes of memory. 

An alternate display mode permits 
the display of only 160 horizontal dots 
with the same number of vertical dots. 
The tradeoff for this multicolor mode 
is increased flexibility in the display 
of color. The memory requirements 
of the bit map for this mode are the 
same as above. The increased color 
capabilities call for 2,000 bytes of 
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storage. (For additional discussion of 
Commodore 64 bit mapped graphics, 
see the October and November 1984 
issues of Alwy!) 

As we can see, a C-64 bit map 
would seem to contain as much infor- 
mation as a TV picture. The reason 
it cannot create a lelcvisionlike im- 
age is that the 64 is limited to a total 
of 16 possible shades or colors. A 
television image is capable of thou- 
sands of brightness and color com- 
binations. Nevertheless, impressive 
results can be obtained, some exam- 
ples of which can be found in our An 
Gallery {see pages 34 and 35). 

A number of software packages al- 
low the user to draw or create graph- 
ic images on the 64, including Flea- 
draw from Inkwell Systems, 
DOODLE! from City Software, and 
Koala Painter from Koala Technol- 
ogies. Detailed reviews of these and 
a number of other packages were pre- 
sented with the discussions on bit 
mapped graphics previously men- 
tioned. These packages are supported 
by the Computereyes software. 

GETTING THE PICTURE 

The Computereyes software allows 
you to capture a video image as a 
Commodore bit map. Three different 
bit map formats arc directly sup- 
ported. The optional software for use 
with the above graphics packages 
adds seven more formats. We will go 
into these in some detail. 

The first step is to set the synchron- 
ization control. A built-in routine 




George digitized 
with Koala sup- 
port software, 
in low contrast 
format. With 
multicolor pack- 
ages like Koala, 
compatible image 
modes are limi- 
ted to low and 
high contrast 
capture, with up 
to four gray lev- 
els in each char- 
acter cell. 



simplifies the process to just a few 
seconds. Once set, the sync control 
is left alone. The second step is to set 
the brightness control. A special dis- 
play mode performs a continuously 
visible image scan every six seconds. 
We found that by setting the bright- 
ness control so that only the bright- 
est highlights showed resulted in the 
best starting setting for subsequent 
operations. The operation of the 
package was very sensitive to the set- 
ting of the brightness control. Al- 
though the adjustment was manage- 
able, some sort of fine tuning would 
have been welcome. The controls 
also lacked pointers or markings, a 
minor inconvenience. Il would be a 
good idea to mark the position of the 
controls after the initial setup. This 
would eliminate the need for these 
preliminary adjustments for each sub- 
sequent use. 
The package is menu-driven, with 



Model from 
magazine cover 
digitized with 
DOODLEI high 
contrast cap- 
ture, resulting 
in a bit map 
image with 
three intensity 
levels -white, 
gray, and black 
—with maximum 
resolution of 320 
X 200 pixels and 
two levels possi- 
ble in each 
character cell. 




built-in help screens. It is a complete 
image capture utility which allows for 
the LOADing, SAVEing, and view- 
ing of the captured images. The disk 
directory may be viewed without exit- 
ing the program; however, disk com- 
mands, such as for formatting a disk, 
cannot he issued. The programs arc 
written in BASIC with the digitizer 
parts in machine language. Since no 
copy protection is used, it should he 
fairly easy to add whatever frills you 
may want. The starter package makes 
full use of the high resolution bit map. 

The quickest way to digitize an im- 
age is to use "Normal Capture." This 
produces a high contrast black and 
while image. The original picture is 
scanned once with all parts above a 
certain brightness level assigned to 
white. Maximum resolution is ob- 
tained at the expense of any tonal 
gradation. This mode is relatively 
fast, completing a scan in less than 
seven seconds. 

Somewhat slower but generally 
more pleasing is the "4-Level Cap- 
ture." The original image is scanned 
four times at different exposure lev- 
els. Each level is assigned to a shade 
of gray by turning on different num- 
bers of pixels. The tradeoff is loss of 
resolution, as four pixels are required 
for each part of the image. A 4- Level 
scan requires about 26 seconds. 

The "8-Level Capture" is similar to 
the above. Eight synthesized grey lev- 
els are formed with a corresponding 
reduction in image resolution. Cap- 
ture time is a bit over 50 seconds. 

OPTIONAL SOFTWARE 

The basic software generates a pure 
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8K bit map without any color infor- 
mation. If you have the Flexidraw 
graphics package, any of the above 
formats can be loaded in and worked 
on. Good results will also be obtained 
with the Flexidmw print utility, since 
these are pure bit map images. For 
use with other packages, Digital Vi- 
sion offers Compatibility System 
Software in support of Koala, 
DOODLE!, Fladdraw, and Tiie Prim 
Shop. Each disk tailors the captured 
image to the specific package. 

For the hi-res packages, namely 
FtexMmw and DOODLE!, the above- 
mentioned capture modes are sup- 
ported. Two additional modes are 
also provided. The "Low Contrast 
Capture" makes use of the C-64 color 
capabilities to generate a true five lev- 
el gray scale composed of the three 
grays, black, and white. In this mode 
the full bit map resolution is pre- 
served while still allowing for image 
shading. Since the high resolution bit 
map is used, only two gray levels will 
appear in any 8x8 pixel character 
cell. The "High Contrast Capture" is 
similar to the above, except every 
other gray level is used. 

Since Koala is a multicolor pack- 
age, the compatible image modes are 
limited to the Low Contrast and High 
Contrast captures. The difference is 
that finer gray scale resolution is ob- 
tained, since multicolor mode allows 
up to four colors in each character 
cell. As a result the Koala images are 
apt to be the most pleasing for many 
subjects, even with the reduced reso- 
lution of the multicolor bit map. 

The latest addition is the Print 
Shop support package (see the review 
of the Print Shop in the July '85 
issue). This will create images for 
both the Kaleidoscope and the 
Graphics Editor utilities. The support 
for the latter is very well done. A 
large portion of a full image is 
marked by a movable mask. Simply 
use the cursor keys to select the por- 
tion you want. The software then 
blocks the image into the reduced de- 
tail for the graphics editor. When se- 
lecting a source image for conversion, 
keep in mind the 88 by 52 dot resolu- 
tion of the Graphics Editor (44 by 45 
dots for 1525 printers). Images with 
large solid areas will work the best. 



The Print Shop support package 
can be used to convert any 8K hi-res 
bit map image. The ones generated 
by Fle.xidmw, without color, are per- 
fectly suitable. Image fdes created by 
the DOODLE! package will have to 
be stripped of their leading kilobyte 
of color data. To do this you simply 
LOAD L 'DDPICTURE",8,1; where 
"DDPICTURE" is the file you want 
to convert. Next POKE 45,0: POKE 
46,96. Finally SAVE "PICTURED; 
where "PICTURE" is the name of the 
file you want to create. The result- 
ing 33 block disk file will be a pure 
bit map, without the color informa- 
tion, ready for processing by the 
Computereyes Print Shop support 
package. 

PRINTING THE PICTURE 

The built-in print utilities of both 
DOODLE! and Flexidraw will do a 
fine job with the first three image for- 
mats. Strange results arc likely if you 
try to print either the Low or High 
Contrast images. These images de- 
pend on the color information to pro 



duce the different shades of gray. The 
Koala screen dump utility will do a 
good job with either of the Koala for- 
mats. The Graphic Printer package 
by Michael Keryan takes into account 
the color information of a high-reso- 
lution bit mapped image. It is de- 
signed to work with the high density 
print modes of the Star Micronics 
Gemini series of printers or the Ep- 
son graphics-capable printers. Con- 
tact the Computerist, Inc., P.O. Box 
6502, Chelmsford, MA 01824 (phone: 
617-256-3649) for information about 
this package. 

For a real personal touch, try trans- 
ferring a digitized image to a T-shirt 
by using the Underware Ribbon. This 
ribbon for the Epson, Gemini, and 
Okidata printers contains thermal 
transfer ink for iron-on images. Just 
remember to do a left to right flip 
with the DOODLE! software before 
printing. The ribbons are available For 
$19.95 from Diversions Inc., 1550 
Winding Way, Belmont, CA 94002 
(phone: 415-591-0660) (see the May 
'85 Scuttlebutt). 
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Overview of FONTMASTER 
word processor features: 

1} Powerful block manipulation 
commands (Cut, Paste, Move, Overlay). 

2) User - friendly eliecls Include (fonts, 
suporisub scripts, underlining, bold face, 
etc.) 

3) Up to eight different fonts can be used 

simultaneously 

4| Many printing options such as page number- 
ing, titles, wordwrap, right justification, and 
more, 

5) Eight disk HO commands (Save, Load. Verify, 
Erase. Etc.). 
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SOME OPERATING TIPS 

The techniques used for black and 
white photography can be applied to 
imaging with the Computereycs sys- 
tem. As such, good photography 
practices apply. Pay careful attention 
to lighting and background. If you are 
using a black and while camera, pho- 
tographic colored filters for contrast 
enhancement can be quite useful. 

Want to get close up'? A low pow- 
er magnifying lens placed directly in 
front of the camera lens will allow 
you to focus much closer than other- 
wise possible. The cost is minimal 
and image quality will be virtually 
unaffected. 

Being able to directly view the vid- 
eo image greatly simplifies the setup 
procedure. If you are using a moni- 
tor with your computer, a simple 
RCA type "y" adapter and a two po- 
sition video switch are all you need. 
Just intercept the camera signal with 
the "y" adapter and send it to both the 
Computereyes module and the video 
switch. The computer video output 
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goes to the other side of the switch 
to complete the hookup. The Com- 
modore 1701 and 1702 monitors are 
ideally suited for this purpose. Sim- 
ply scud the camera output to the vid- 
eo jack on the front of the monitor. 
The computer should go to the back 
connectors. The switch on the back 
pane! will let you select between the 
two sources. 

The camera video signal cannot be 
fed directly to the antenna terminals 
of a TV set . It will have to be con- 
verted to the radio frequency broad- 
cast format. An RF Modulator, avail- 
able from Radio Shack as catalog 
number 15-1273 for S24.95. will do 
the job. If you can do some of your 
own tinkering, then the basic RF 
modulator, sans power supply, is 
available for $9.95 as catalog num- 
ber 277-221. Simply feed both the 
computer and the modulated video 
signals to the set's antenna terminals 
via a game selector switch. Or set one 
to channel 3 and the other to chan- 
nel 4 and use the set's tuner. 

CONCLUSIONS 

Computereyes is an easy to use im- 
age digitizing system for the 64. The 
resulting images are remarkably de- 
tailed for such a low cost system. 
With care, directly usable images can 
be readily generated. The optional 
supporting software allows the imag- 
es to be saved for subsequent editing 
by some of the more popular graphics 
packages. The resulting images pro- 
vide a wealth of detail for manipula- 
tion in this environment. 

Digital Vision Inc., 14 Oak Street - 
Suite 2, Needham, MA 02192 (phone: 
617-444-9040). 

AUTHOR'S NOTE 

White working with Computereyes for 
this review 1 rapidly accumulated sever- 
al disks full of images on a variety of 
subjects. In fact the process became rath- 
er addictive. If you would like to have 
these for your own use I would be glad 
to provide a diskful tor $!2 to ewer copy- 
ing and distribution. Just specify which 
format you would like. An SASE will get 
you a listing of available disks and their 
contents. Send payment to Morton Kcv- 
elson. P.O. Box 260. Homccrest Station, 
Brooklyn, NY 11229. 



BLAZING PADDLES 

Baudville 
Commodore 64 
Disk; $34.95 

Billed as a graphics package that 
will work with most of the input de- 
vices available for the Commodore, 
I found that Blazing Saddles worked 
well with both a joystick and the Ko- 
ala Pad. Although it worked with a 
Tech Sketch Light Pert, it was ex- 
tremely erratic. While supposed to 
work with track balls, paddles, light 
pens, joysticks, or graphics tablets, 
it can only be used with one device 
each time it is booted up. If you wish 
to change devices during a session, 
you must reboot the program— a 
three-minute process. Quick loaders 
like Fast Load and Mach 5 have no 
effect on Blazing Paddles. 

One annoying deficiency can be 
found as soon as you decide to boot 
the program. The documentation 
warns not to plug or unplug devices 
while the program is running, but 
doesn't bother to tell you which in- 
put devices use which ports. Despite 
the warning, when the joystick failed 
to move the cursor I switched it to 
the other port. Fortunately, nothing 
blew up. From my experience the 
Koala Pad and light pen used port I, 
the joystick used port 2. 

The program is designed well, with 
most of the features we've come to 
know and love: sketch, fill, zoom, 
and draw dots, lines, frames and box- 
es, ovals and circles. Especially nice 
is the undo command . Hitting a sin- 
gle key cancels your last update. A 
spray paint mode lets you brush in 
color a little at a time. Subsequent 
strokes darken the shading. 

The cut and paste window can be 
used to duplicate things on the screen 
without having to redraw them. A 
window's contents can be saved and 
reloaded using a separate filename, 
as well. 

The screen can be cleared to any 
of the 16 colors. Since this is a two- 
step process requiring some preci- 
sion, it is very difficult to acciden- 
tally wipe out your work. In fact, 
about the only way to really mess up 
is to change the background color to 
the same color you're using to draw 
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with and then return to the main 
menu. This is entirely possible, since 
you can change the background col- 
or at any point during your work by 
using fl. 

A text mode allows you to put mes- 
sages or labels in your drawings. The 
characters look strange, both on the 
screen and in the printouts. One of 
the companion disks. Shapes and 
Fonts, has a number of other type 
styles that you can use for writing 
messages and labels. 

The S20 companion disks (Shapes 
and Fonts, Science, Kid Stuff) are 
probably the best recommendation 
for this program. These have pre- 
drawn figures that cover a variety of 
subjects. I used the electronic sym- 
bols from the science disk to create 
a circuit drawing. The resolution of 
printouts leaves something to be de- 
sired: high resolution. The print qual- 
ity is about the same as the Koala 
Painter in low resolution mode. 

The Blazing Paddles disk includes 
a few stick figures to show you how 
to take images out of the picture li- 
braries and put them into your draw- 
ings. This is one area where this pro- 
gram shines. The sprite sized figures 
can be manipulated before you put 
them into your picture. You can Rip 
them over, rotate them around 90 de- 
grees, or change their color. The ex- 
tra disks have some useful shapes on 
them (especially if you're a kid try ing 
to impress your science teacher). 

One other disadvantage that I found 
was not being able to exchange col- 
ors. Although switching the back- 
ground colors is easy, if you want to 
change the color of lines you've al- 
ready drawn it's a difficult task. I've 
only seen one graphics program with 
this feature, so I can't be too hard on 
Blazing Paddles for not having it. I 
originally chose a dark background 
with light lines for my circuit diagram 
because it was much easier on the 
eyes. When I got it finished, though, 
I realized it would look much better 
reversed. It took another two hours 
to redo the drawing. If 1 could have 
changed the background using fl and 
then changed the lines to another col- 
or, it would have taken only a few 
seconds. Using fill on thin lines is al- 
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• Makes up to 5 copies of each original — ( UNIQUE FEATURE] 

• Backs up 99% of all protected software 

> Free backup copy -two disks (or the price of one 



FOR 2 COPIES OF THE 
DISK NIBBLER 



plus $4.00 shipping and handling Mastercard. Visa. Check or M.O.. Foreign orders 
or COD add S2.00. Calil. add 65 c : |S2.60| sales tax. Additional backup copies are 
$20.00 plus S 3 00 shipping. ATTENTION: Owners of ULTRAC0PY whose names 
are in our tile may order a single copy !or $20.00 plus S 3.00 shipping. 



FREE BACKUP DISKS 



MURPHY'S MANSION 

,.^ AN ULTRABYTE 
>i^ TEXT ADVENTURE 



II seems lhal an unknown uncle has died in 
laraway Scotland and led you his vast 
fortune. $10,000,000 to be exacl I! 

There is only one small problem. Clear old 
uncle McMurphy was a hit demented and 
has hidden your inheritance somewhere in 
his mansion, 

He lelt you only one small clue, a brass key 
It is now up lo you to lind your fortune 

• 30 ■ 60 hours of challenge 

• Sealed envelope ol hints 
lor beginners 

• Instruclion manual included 

• Solution sheel available 

^ $29.95 for 2 disks ^ 

plus $4.00 shipping. COD or 
Foreign add S2.00. CA tax S1.95 



nK->1 



THE DISK SURGEON 

AN ULTRABYTE 
DISK UTILITY 

• Head data hum. edit and write to disk 

• Analyse disk errors without "hammering" 

• Write errors 20. 21 . 22. 23. 27 & 29 on disk 

• Read data under errors, erase errors 

• Decimal. HEX. Oclal & Binary conversions 

• Formal a single track with any ID 

• Detailed instructions for beginners 

• Much more 

INCLUDES THREE PUBLIC DOMAIN COPY 
PROGRAMS THAT ARE NOT PROTECTED 

II FILE COPY lo copy portions ol a disk 

2| SINGLE TRACK COPY 

3) 4 MINUTE COPY ot entire disk, 
Protected disks also require error 
produclion 

^ §29,95 lor 2 disks ^ 

plus $4.00 shipping. COD or 
Foreign add $2.00. CA tax $1.95 



All Products for Commodore 64 & 1541 Disk Drive Only 
Write or Call 24 Hour Order Line 

ULTRABYTE ( 818 ) 796 - 0576 
P.O. Box 789 La Canada, CA 91011 



DEALERS & DISTRIBUTORS WANTED 
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FREE 



10 DISKETTES 

OR 

20 C-20 CASSETTES 

A subscription to the 'Cassette of the 
Month' gets you a tape or disk full of 1 
quality Commodore 64 programs deliv- 
ered to you by first class mail every month. 
The documentation included will help you 
run great utilities like 'Word Processor, 
and Budget Analyzer,' or enjoy great 
games like 'Frogjump' and 'Caterpillar 
Cave' FOR AS LITTLE AS 50 CENTS 
EACH! 

* Limited offer # Subscribe for a year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe for a year on disk and 
receive 10 Free 5V* single sided double 
density diskettes! DRIPFC— 

TAPE KSK 

1 YRjIJISSUES) £0" n™ 

6HO(6ISSUES) J5 00 45°° 

5.ngieCopi« 7" F> 




* We've been in business (or 



WWi flm kH.»* 



PERSONAL CHECKS WELCOME! 



overttireeyears'acquinng OrtfMssADDSiotasutiwwfl 

* Over 4000 satisfied cotor ■* W0h*ijMMt 

computer owners 

* Commodore 64 required 
T & D Subscription Software 
P.OBOX256C 
HOLLAVD. Ml 49423 mmmm 
(616)396-7577 .££. 
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moist impossible, especialy if they're 
diagonals. 

Except for the one flaw mentioned 
at the beginning, the documentation 
is very good. Besides the manual, 
there is an onscreen help menu. Al- 
though it's a nice idea, by the time 
the help file loads you could have 
looked it up in the manual. Keyed 
to the input device you arc using, it 
gives brief instructions on how to en- 
ter commands. 

For instance, the joystick will draw 
on the canvas as long as the fire but- 
ton is held down. To go back to the 
main menu, you must press f5 to take 
the cursor off the screen and then hit 
the fire button. For some reason, 
when using the joystick the cursor 
won't go over into the border. 

The joystick is very slow to re- 
spond, by the way. The light pen but- 
ton wouldn't work, so I had to use the 
control key instead. Also, the calibra- 
tion on the light pen was off by about 
half an inch. In addition, whenever 



REVIEWS 



I tried to change the brush color, the 
background color of my drawing 
would change, too. Although the fl 
key could be used to change it back, 
it was a pain in the neck. Of all the 
input devices used, I enjoyed the Ko- 
ala Pad most. It responded quickly, 
and didn't give me any trouble. 

This is a nice graphics package, 
although the input device you use will 
ultimately determine how satisfied 
you are with it. I would rate it about 
equal to other packages in its price 
range. Unless you are .specifically 
looking for a package to use with sev- 
eral input devices, you would prob- 
ably do just as well to buy any of the 
devices that comes with its own soft- 
ware and leave it at that. If you want 
to spend the extra money for the 
shapes disks, then Blazing Paddles 
becomes a good value. 

Baudvilie, 1001 Medical Park 
Drive S.E. . Grand Rapids, MI 49506 
(phone: 800-824-8873). 

— Cheryl Peterson 



Dreams CAN come true! 



1JQJ1 ShepT nir Print Ditj Gnph 
imMt, Cue, Prot«tj Midthj Skifto' 
PitMjlij torn- 



Back in June of 1983, Kelvin Lacy 
had a dream. He dreamed of creating 
one integrated program that would 
include a spreadsheet, business 
graphics and a database. A program 
with the power of Lotus 1-2-3. On the 
Commodore 64. People laughed! He 
had just finished OmniWriter, to be 
marketed by HESWARE. Ignoring the 
skeptical, he started on VIZASTAR. 

Now, after 15 months, his dream has 
come true. VIZASTAR has a full- 
featured spreadsheet, as good as 
Multiplan, But much (aster— faster 
than many spreadsheets on the IBM 
PC! It is written 100% in 6502 
machine language code and is 
ALWAYS in memory. It is menu- 
driven, using the latest techniques in 
user-friendliness. It is compatible with 
virtually all printers and word 
processors. Up to 9 windows can be 
open simultaneously, anywhere. 
Remarkably, I0K of memory is 
available for spreadsheet use. 



The database is equally impressive. 
Create file layouts by simply painting 
a picture of the layout on up to 9 
screens, showing where a field starts 
and ends; VIZASTAR does the rest. 

Imagine the power of a spreadsheet 
integrated with a database. Now add 
graphics — bar, line, and multi-color 
pie and 3-D "skyscraper" graphs. You 
could access a customer's profile in 
the database, transfer the data to the 
worksheet, and let it calculate 
discounts, sales tax etc. and then 
transfer the updated data back to the 
database. Open up a window 
anywhere and display a graph of your 
data, instantly. This integration is the 
key to VIZASTAR's power— the first 
and only program of this kind on the 
C-64. All commands can be 
automated, so you can "program" 
your own applications and run them 
with one keystroke. 

rnuttmarks: Luiu, t 23/Lotua Den.*lop>iw*cir Commodoc* 
64Cominodorp EtoctTOffdw Lid. MulsipUn Microsoft 




AiTu.tf * rten dump pfintt'd by VIZASTAR 

VIZASTAR includes a cartridge, a 1541 
diskette with a backup, reference and 
tutorial manuals. VIZASTAR is ONLY 
5119.97, We are so positive you will be 
delighted with VIZASTAR that we offer a 
15day money-back guarantee. Try it risk- 
free! Compare VIZASTAR with any other 
spreadsheet or database. 

So order today. Call or send a check or 
Money Order. Calif, residents add 6.5% 
sales tax MC/VISA accepted. 
Add P&H: UPS-S3; COD, Canada -S6 



SOLID 5TRTE SOFTURRE 



1125 E. Hillsdale Blvd., Suite 104 

Foster City, C A 94404- 1609 

(415) 341-5606 

Dealer Inquiries Welcome 
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GO-LISTER 



A Programming Aid for the C-64 

By John K. Lunde 



^■^^ o-Uster is a machine language utility that 

^^P^^ produces a printoul showing which BASIC 

■ program lines are called by GOTO, 

V W GOSUB. THEN, and ON .statements in 

^^^^ other program lines. 

Anyone who has ever tried to modify a program writ- 
ten by someone else, or who has simply lost track of 
where the GOTOs get to in his own program, knows the 
frustration of changing a line in some apparently innoc- 
uous way only to have the program begin to act strange- 
ly because the line is accessed by a transfer statement 
somewhere else. 

This utility provides a warning when a particular line 
is used bv several other lines in common, and shews when 



it is safe to 'crunch' one or more lines together. 

It is also useful in analyzing programs, since knowing 
which lines are called by others gives you a good idea 
of the program's structure. 

Go-Lister must be typed in using our Flankspeed ma- 
chine language entry program. Follow the instructions 
on page K6 for typing and saving Flankspeed. Then run 
Flankspeed, and type in and save Go-Lister. 

To use Co-Lister, type LOAD "GO-LISTER",8,l and 
load your target program, then type SYS 49152 to run 
Go-Lister. The only restrictions are that the target pro- 
gram must stan at the usual start-of-BASIC location 
(2049) and that the printer must be device #4. □ 

SEE PROGRAM LISTING ON PAGE 109 



MOXEY'S 
PORCH 

For the C-64 

By Bob Blackmer 

Moxey's Porch is an arcade-style game played 
on a three dimensional multistcp porch. 
After entering and running the game you 
will be asked if you want instructions. Then 
enter the level (1-9) that you wish to start at 
(level 9 is easiest). 

You control Enzo as he jumps on his pogo stick. His 
neighbor, Moxey, a likeable fellow, has just put the finish- 
ing touches on his newly painted porch. 

Using the joystick in port #2, maneuver Enzo around 
the porch marking up the steps. Don't let Moxey catch 
you as he runs around his porch trying to stop you, or 
the game is over. 

After you mark up all the steps, you reach the next 
level where Moxey gets a little faster. See how long you 
can keep going once you reach level 1. 

Moxey's Porch is a good example of the game screens 
made possible by using multicolor custom character sets 
and multicolor sprites. □ 

SEE PROGRAM LISTING ON PAGE 91 



Now Your 

Computer 

Can See! 

$9QR oo* 




MicronEye" 
"Bullet" 



A tola! Imaging system complete 
■ in<! ready for plug -and-go opera- 
tion with your personal computer. 

The MicronEye'" offers select- 
able resolution modes of 256 x 128 
and 128 x 64 with operating speeds 
up to 15 FPS. An electronic shutter 
is easily controlled by software or 
manual functions, and the included sample programs allow you to con- 
tinuously scan, freeze frame, frame store, frame compare, print and pro- 
duce pictures in shades o( gtey from the mo men I you begin operation. 

Only the MicronEye'" uses the revolutionary 1S32 OplicKAM" image 
sensor for automatic solid state image digitizing, with capability for grey- 
tone imaging through multiple scans. And with these features, the 
MicronEye" is perfectly suited for graphics input, robotics, text and 
pattern recognition, security, digitizing, automated process control and 
many other applications. 

The MicronEye"" is available with immediate delivery for these com 
puters: Apple II. IBM PC. Commodore 64 and the TRS-80CC(u»*mOTtuoi 

Apple CoriipuTpf Inc . rrrtrmat>.->rvri Business Ma 
CllllMtm COftWTOdore Corp.. and Tandy CotfJ. 

Phone for MicronEye- information 
on the Macintosh. Tl PC and RS232 

leadfmflrio of Appt* Coniputr-r to and TwH In 
mrumenh respwtivety.f 
"(Ada IIOjOO lor dipping and tending >■ 
Etpre™ Sternjanl Ar|. rtwienls o# Ole fotownu 
Hotel mm add solo a < W. A7. CA CO. CT 1 1. 
CA. [A. II). IL i!\ LA M-VMD. ME, Ml MM NC. ML 
MJ, MY. OH. PA. SC. (Pi. TV 01. VA. VT. WA. Wl.) 



IICRON 

[TECHNOLOGY, INC. 

1 SYSTEMS GROUP 
1475 Tyrell Lane 
Boise Idaho 83706 

(208) 386-3800 
TWX 910-970-5973 
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TOURING THE 
COMMODORE 128 
KEYBOARD 

Continued from page 54 

THE REST OF THE KEYS 

The top row of the keyboard has 
a total of 16 keys in groups of four. 
The four function keys on the right 
have been described above. The left- 
most grouping includes the ESCape 
and the TAB keys as well as an ALT 
key and a CAPS LOCK key. The 
ALT key is intended for use with al- 
ternate character sets under program 
control. This will be a topic for fu- 
ture discussion. The CAPS LOCK 
key acts as a SHIFT key only on the 
letter keys. As with the SHIFT 
LOCK key. the CAPS LOCK key in- 
cludes a mechanical latch to hold it 
down. 

The next group starts with a HELP 
key. If this key is pressed immediate- 
ly after a BASIC program error, the 
offending BASIC line will be dis- 



HARNESS RACE ANALYZER 

Lot the speed and power of your computer 
give you thai added edge' Features: 

* Analyses I 1 important categories 
(all found on thu daily racing form), 

•k Morning line odds are NOT used in 
the computations. This gives you a 
source of information independent 
from the morning line. 

ir Simplified data entry - approxi- 
mately five minutes per race. 

it Info on up to 20 races printed on 
one page master printout including 
ratings for each horse, hut sugges- 
tions. and best bets of the day, 

■A- If no printer is available, information 
is sent to the screen. 

+ Bet suggestions include: best win, 
place, show q nine I la, pedecta. exac- 
ts, tnfecta and tri-box, 

if Printout info can also be saved to 
disk (or later use. 

Available on disk for the 

C-64*, PLUS/A' and C-16* 

Please specify which computer 

you are using. 

Send Check or Money Order for 
S24.95 to: 

ALSOFT 
BOX 164; CLAIRTON, PA 1502S 

1 Tfiidamark ol Cnmmcxlorii Ekittronici 



TABLE OF CONTROL KEY FUNCTIONS 

CONTROL B CHR$(2) Turn underline on in 80 column display 

CONTROL G CHR$(7) Produce bell tone 

CONTROL H CHRS(8) No effect 

CONTROL 1 CHRS(9) Move cursor to next tab stop 

CONTROL J CHR$(10) Send a linefeed without a carriage return 

CONTROL K CHRS(ll) Enable character set change 

CONTROL L CHRS(12) Disable character set change 

CONTROL O CHR$fl5) Turn flash on in 80 column display 

CONTROL X CHRS(24) Tab set or clear 

CONTROL [ CHR$(27) Send an ESCape character 

CHR$(130) Cancel 80 column underline 

CHR$(I43) Cancel 80 column flash 
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played. Starting with the point in the 
line at which the error occurred, the 
remainder of the line will be dis- 
played in reverse on the 40 column 
display and underlined on the 80 col- 
umn display. 

The LINE FEED key moves the 
cursor down without a carriage re- 
turn. This is the same as the 
CONTROL J ( CHRS(IO) ) described 
above. The 40/80 DISPLAY key is 
another mechanically latched button. 
It detenu i nes the display mode on 
power up or when the reset button is 
depressed. Latching it down defaults 
to the 80 column display. It has no 
effect once the computer is up and 
running. The NO SCROLL key acts 
as a pause button. It conies in handy 
for freezing a program or directory- 
listing in its tracks. Hitting a key a 
second time restarts the listing. In a 
similar fashion, it also pauses pro- 
gram execution. 

The next group consists of four in- 
dependent cursor keys. These dupli- 
cate the operation of the cursor keys 
at the bottom of the keyboard. The 
notable exception is that it is not nec- 
essary to SHIFT for a cursor up or 
a cursor right, I found that 1 have 
grown so accustomed to the old cur- 
sor keys that I almost never used the 
new ones. Perhaps the need to reach 
to the top of the keyboard discour- 
ages their use. 

Finally, a 14-key numeric keypad 
duplicates the function of the num- 
ber, plus, minus, period/decimal 
point, and RETURN/ENTER keys. 
The numeric keypad and the tour in- 
dependent cursor keys are electrical- 
ly different from the number keys and 



the cursor keys on the Commodore 
64 subset of the keyboard. Although 
they return die same CHR$ code with 
a GET statement, it is possible to dis- 
tinguish them by PEEKing an appro- 
priate location. (Sec sidebar on page 
52 for details.) 

This hardware separation of the 
keypad from the rest of the keyboard 
is a minor disappointment to C-64 
upgraders. If the keypad had been 
kept electrically identical to the num- 
ber keys on the keyboard it would 
have been usable in C-64 mode as 
well. This would have allowed the use 
of all existing Commodore 64 pro- 
grams with the numeric keypad. 
Keeping the keypad compatible could 
have been easily accomplished by 
simply paralleling the existing con- 
tacts. Actually, this would have been 
cheaper to implement than the 
scheme used. Apparently, Commo- 
dore lelt the extra flexibility offered 
by the electrical separation was worth 
the extra effort. 

LAST BUT NOT LEAST 

Tucked away on the right side of 
the C-128, next to the on/off switch, 
is a small square push button. It is 
mounted Hush with the surface, mak- 
ing accidental activation unlikely. 
This is a true hardware reset button. 
Pressed on its own, it will bring the 
C-128 back to its initial power up state 
in the current mode. In conjunction 
with die Commtxlorc logo key, it will 
force a reset to C-64 mode. If the 
RUN/STOP key is held down, the 
C-128 will come up in the machine 
language monitor with the current 
BASIC program in memory intact! D 
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Rockets, Boats, 
and Pigs in Pokes 

Continued from page 28 

into the flag-hit register ;ii HR. 
\7. The lowest vertical position allowable on the screen, 

minus I. 
HZ The rightmost horizontal position allowable on the 

screen, minus 1. 
VP The current vertical position (a numher from to VZ), 

HP The current horizontal position (a number from 

to HZ). 

In addition, Pig in a Poke uses several game-control 
variables: 

This string contains all the fence units: segments 
are randomly selected to make each new fence 
moving up the screen. 

This array determines the starting points for each 
difficulty level in selecting a segment of the fence 
to display. 

Row count -how many blank lines have been in- 
serted between fences. 

The total number of fences added lo the screen 
so far. 

The delay variable - how many seconds should 
pass before the fences arc scrolled upward. 
The difficulty level, or gap-width variable- how 
far into the string WS$ the next fence should come 
from. Since gaps arc narrower and fences wider 
the farther you go into WSS. the higher this num- 
ber, the more difficult to get through the fenee. 
The spacing between fences. It begins with five 



WSS 



\\ [.<,!> 



RC 



RT 



DT 



DL 



DS 



blank lines between fences, then progresses to 
only one blank line before the program ends. 

EG End-of-game Hag. Several ending conditions set 

this flag, which causes the program to jump to 
the ending routines. 

K. K(n), KP(ii) In the main loop, these variables arc used to in- 
terpret keypress data. 

KP The current direction of movement. This is used 

with LTf/iJ and STfrlJ to determine whether to dis- 
play the shape of a left-facing pig or the shape 
of a right-facing pig. 

At the beginning of Pig in a Poke, line 5 moves the 
top of BASIC memory below the video block at 32768. 
Then lines 10 through 13 send the program to four set- 
up routines. 

Video Memory Set-Up. Lines 600-604 tell the VIC-2 
to find the video block at 32768, and where within that 
block the VIC-2 and BASIC can find screen memory. 

Lines 610-634 assign the addresses of various regis- 
ters to the variables listed above. Lines 636-637 set up 
the set-bit and clear-bit arrays. 

Lines 640-654 set the initial values of most registers. 
If you want to experiment, change these at will and sec 
how they affect the game. 

Lines 690-696 disable the SHIFT/COMMODORE and 
RUN-STOP/RESTORE interrupts. This is because 
SHIFT and COMMODORE are used for left and right 
movement in the game, and we don't want the character 
set shirting back and forth; and because video memory 
has been relocated, a RUN-STOP/RESTORE would 
cause the machine to become virtually unusable. 



Make Your Home Secure and Energywise 

... with Genesis Home Control Products 

At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your home safer and more energy efficient while increasing your personal convenience. 

The Genesis VIController allows you to control up to 256 lights and appliances throughout your home using standard BSR 
receiver modules. With the included software, you can create daily and weekly control schedules. 

Your system can be expanded by adding Genesis' COMsense input device, Super . 

Schedule Plus software, and available sensors. Commands can |SJM* .. A 

then be issued in response to on/off inputs such as the _ . - ■ v - _ ^^§^\ 

opening of a door or analog inputs such as a change in ,-^:": 

light level. By adding COMclock, a crystal 

controlled clock/calendar, your system will A 

have an accurate, battery 

backed-up time base. 

COMclock's Autoboot ROM 

acts as a failsafe restart for 

the system in the event of 

a power failure. 



IB 

3 


IIP 


— — 




H 


\.-T 


^[l9i£l] 


E 




E 


j 


PHjE 



Sold separately the VIController. 

COMsense and COMclock 

sell for $69.95 each and 

the Super Schedule Plus software sells (or $19,95. All four products are available together in our HOME CONTROL 

PACKAGE for only $199.95. 

Call 215-861-0850 to order direct or contact your local dealer. 



Genesis Computer Corp. • P.O. Box 152 • Hellertown, PA 18055 
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Background Preparation. Lines 700 to 730 set up the 

wall string WSS and the variable WLf/iJ, which controls 
the starting points for random wall .segments at different 
difficulty levels. Line 740 sets the initial difficulty lev- 
els. DL should start at 0. DT is the number of seconds 
the program waits before inserting rows. A value of 
is too fast to play. DS is the number of spaces between 
rows at the beginning. You have to make sure the game 
ends before the program drops the value of DS below 
-this will cause a program-crashing error. 

Sprite Shape. Lines 800-808 read the strings of sprite 
data, and interpret them so that they can be POKEd into 
sprite shape blocks in the correct order. If you change 
the shapes, make sure that each string has 24 characters 
and there are as many rows as are called for by the vari- 
able TS plus I. If TS=9, then there must be ten strings 
of sprite information per shape. There must also be as 
many shapes as are called for by NS plus I, so that if 
NS=1, there must be 2 whole sprite shapes. 

Sprite Positioning. Line 900 sets the number of ver- 
tical and horizontal positions that will be allowed, and 
DIMensions the applicable arrays. 

Lines 902-904 set the horizontal position values, start- 
ing with the leftmost position, 24, and increasing each 
position by 2. Line 906 sets the vertical positions, start- 
ing at 53 and increasing each position by 8. 

Lines 920-922 set up the variables used in interpreting 
keypresses. KP(n) is indexed by the raw keypress at lo- 
cation 653. Values that mean nothing are set to 2; a key- 
press calling for left movement is set to 0, for right move- 
ments, to 1. The keypress that calls for the end of the 
game (SHIFT/COMMODORE/CTRL) is set to 3. These 
will be interpreted in the main loop. 

K(n) has only two possible values: K(0)=-1 and K(I) 
=1. When indexed by KP(n), these values will be added 
to or subtracted from the current horizontal position (HP) 
of the sprite. 

Lines 930-931 set the initial sprite position and POKE 
it into the proper registers. Line 940 POKEs the current 
shape block code into the sprite location register. 

Lines 950-960 set up the initial play field screen. Line 
960 is especially important, because if it were not done, 
the screen would scroll two lines at a time each time a 




fence was moved off the top of the screen. 

Lines 970-990 clear the collision registers and set the 
timer back to 0. 

Main Loop. After the set-up subroutines are execu- 
ted, the program jumps to the main loop. Line 100 reads 
the keyboard for SHIFT, COMMODORE, and CTRL 
keypresses. If the end of the game is called for, the pro- 
gram jumps to the End-of-game routine at 300. 

Line 105 checks for meaningless keypresses and ig- 
nores them. Line 110415 change the horizontal position, 
depending on the keypress, and cause the pig to "wrap 
around" if he goes off the edge of the screen. 

Line 120 checks to see if the pig has changed direc- 
tion. If he has, the sprite shape location register is changed 
accordingly. Line 125 POKEs the new horizontal posi- 
tion into the two registers affected. 

Line 130 checks the timer to see if it's time to scroll 
the screen. Line 135 cheeks to see if the player has moved 
the pig so it bumps into a fence. 

Ending Routines. Lines 300-315 display the end of 
game messages, indicating the score, which gives points 
for the number of fences displayed before the end and 
how low the pig was on the screen at the end. Then they 
move the pig down to the middle of the screen. Line 320 
checks for a keypress; if Q is pressed, the program jumps 
to 370, the end-of-game routine. 

Lines 325-330 cause the pig to move along the screen 
continuously while the program waits for the player to 
input a choice. Line 345 keeps the program looping 
through the pig's movement unless the player has pressed 
P to play again, in which case line 350 resets the initial 
variables and goes back to line 100 for the next game. 

Lines 370-390 put video memory back to normal and 
reenable all the key combinations that were disabled be- 
fore; then the program ENDs. 

Collision Handling. This routine is only executed if 
a collision has already taken place. It bounces the pig 
up to the next valid vertical position. Then it clears the 
collision registers and checks again to see if the pig is 
still touching a fence, in which case it starts over again, 
bouncing the pig up still one more row. If the vertical 
position, VP, is ever higher than the top of the screen, 
EG is set to 1, which will end the game when the main 
loop is executed again. 

Scrolling Routines. If we're between fences (RC<DS) ; 
then line 502 PRINTs enough cursor-down characters to 
cause the screen to scroll up one line. The fence-adding 
routine is skipped. 

Lines 506-508 select a new fence segment, PRINT it, 
and then advance all the counters, changing the difficul- 
ty level if necessary. Line 510 checLs to sec if the maxi- 
mum number of rows has been added. Right now the 
game is set up to PRINT 50 new rows on the screen be- 
fore it ends. 

Line 520 checks for collisions. Line 580 clears the 
screen line link table so the screen will only scroll one 
line at a time. Then the timer is reset. □ 

SEE PROGRAM LISTINGS ON PAGE 95 
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ADDRESSING 
THE COMMODORE, PART 



The Second of Two Columns on Assembly Language Addressing 

By Mark Andrews 



Looking for a byte of data in a computer is 
something like looking for a street address 
in a large city. If you don't know the city 
and don't have a map, the task is virtually 
impossible. If you can find a map, it helps. 
And with or without a map, the job gets easier as you 
learn your way around. 

Last month, we saw how a set of programming tools 
called addressing modes can be used to retrieve data from 
memory (and store data in memory) in Commodore 64/ 
Commodore 128 assembly language. In case you missed 
that column, here's a brief review: 

There are 13 addressing modes in C-64/C-128 assembly 
language. Of these, one of the simplest (and most com- 
monly used) is absolute addressing. Using the absolute 
addressing mode is like going straight to a street address 
that someone has given you, and immediately finding 
what you're looking for. 

This is the format used for writing a statement using 
absolute addressing in C-64/C-128 assembly language: 

LDA $1234 

The above statement means, "Load the accumulator 
with the content of memory address $1234." If this state- 
ment were encountered in an assembly language program, 
the contents of the Memory Address $1234 would be 
loaded into the 6510/8502 accumulator, the main internal 
register in the main microprocessor of a C-64 or a C-128. 
(As you may recall from previous columns, loading a 
value into the 6510/8502 accumulator is the initial step 
in many different kinds of assembly language operations. 
As you may also remember, the "5" sign in front of the 
number 1234 means that it's a hexadecimal number.) 

INDEXED ADDRESSING 

A slightly more complex addressing mode is called 
Indexed addressing. Using it is like using a street ad- 
dress to find an apartment building, and then using an 
apartment number to find an apartment in that building. 
In a statement written using indexed addressing, the in- 
struction specifies both an address and an index register 



(either the X register or the Y register, if you're program- 
ming in C-64/C-128 assembly language). The value of 
the index register is then added to the specified address, 
and the sum of this addition operation is the final ad- 
dress of the instruction. 

Indexed addressing is often used in loops that are de- 
signed to retrieve bytes of data in succession from data 
tables. Since the X and Y registers are often used as coun- 
ters in such loops, they have been provided with a spe- 
cial set of instructions that enable them to be incremented 
and decremented very easily. There are also instructions 
that can be used to compare the values of the X and Y 
registers with other values. These comparison instructions 
are often quite useful in determining the boundaries of 
data tables. 

In C-64/C-128 assembly language, this is the format 
for writing a statement using indexed addressing: 

LDA $123A,X 

A PROGRAM ILLUSTRATING INDEXED ADDRESSING 

Hie Quest, found on page 100 of the program listings 
section, illustrates the technique of indexed addressing. 
The program was written using the Commodore 64 Macro 
Assembler, but can be easily modified to work with other 
assemblers. 

One feature of Vie Quest we have not encountered until 
now is a directive, or pseudo-op, in Lines 110 to 130, This 
directive is written ".BYTE" in programs created with 
the Commodore 64 Assembler. If you own a Merlin 64, 
use the Merlin equivalent of this directive, which is DFB. 
If you own a Panther C-64 the equivalent is DFC. 

The .BYTE/DFB/DFC directive is sometimes called 
a pseudo-operation code, or pseudo-op, because it ap- 
pears in the op-code column of assembly language source 
code listing but is not actually a part of the 6510/8502 
assembly language instruction set. Instead, it's a special- 
ized directive that varies in format from assembler to as- 
sembler. Many other pseudo-ops have formats that differ 
from one assembler to another, because there are no gen- 
erally accepted standards for writing pseudo-op directives. 

When the ".BYTE" directive (or one of its equiv- 
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alents) is used in a program, the bytes that follow are 
assembled into consecutive locations in RAM. In Tire 
Quest, the bytes that follow the label TEXT are ASCII 
codes for a series of text characters- as you will sec 
when you type and run the program. 

In Vie Quest, the X register is used as an index register. 
In Line 150, the X register is loaded with a zero. Then 
in Line 170, indirect addressing is used to load the ac- 
cumulator with the first byte of the data segment labeled 
TEXT, plus the value of the X register. Since the value 
of the X register starts out as zero, the first value that 
will be loaded into the accumulator is the first byte of 
the line labeled TEXT, which is the number 87- or the 
ASCII code for the letter "W. So, in Line 180, the routine 
CHROUT (a screen-printing subroutine built into the 
C-64/C-128 operating system, or Kertiat), will print a "W" 
on the screen. 

Next, in Line 190, the instruction INX ("increment the 
X register") is used to increment the value of the X reg- 
ister. Then in Line 200, the value of the X register is 
compared with the number 23 -the length, in bytes, of 
the text string being printed on the screen. If 23 charac- 
ters have not yet been printed, the program cycles back 
to Line 170, labeled LOOP, and the next character is 
primal. Finally, when all 23 characters have been printed, 
the program ends. 
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INDIRECT ADDRESSING 

Indirect addressing is a form of indexed addressing 
slightly more complex than the simple. no-frills indexed 
addressing used in The Quest. When indirect addressing 
is used in an assembly language program, the contents 
of a pair of memory addresses - rather than the address- 
es themselves -are added to the value of an index register. 
The sum is then used as the final address of an instruction. 

Indirect addressing could be compared to a situation 
in which several persons need to get to a meeting each 
week, but are never sure where the meeting is being held 
because its location changes from time to time. One solu- 
tion would be to direct everyone to the same address every 
week, and let them know in advance where to look when 
they arrived -under the doormat, for example -for a note 
containing the address of that week's meeting. 

In 6510/8502 assembly language, indirect addressing 
is often used when rapid changes must be made in data 
being accessed by a program. If indirect addressing did 
not exist, huge blocks of data would often have to be 
moved into and out of programs in real time, resulting 
in tremendous delays in processing. Fortunately, the ex- 
istence of indirect addressing can usually eliminate this 
problem. In a program that uses indirect addressing, it 
is not usually necessary to incorporate large blocks of 
data into the body of a program, and to move them around 
in memory when one block of data must be exchanged 
with another. Instead, the address of a block of data can 
be used in a program. Then, when it is time to replace 
that block of data with another block, all a programmer 
has to do is substitute the address of the new block of 
data for the address of the old one. In this way, by 
changing only a few bytes of memory during the execu- 
tion of a program, an assembly language programmer 
can juggle blocks of data that are hundreds, or even thou- 
sands, of bytes long in a tiny fraction of the time it would 
take to move one whole block of data out of a section 
of memory and then move another block of data in. 

Actually, there are two indirect-addressing modes in 
6510/8502 assembly language: indexed indirect addressing 
and indirect indexed addressing. As mentioned last 
month, one way to keep these two confusing terms straight 
is to remember that the word "indexed," which contains 
an "X," is the First word in the term "indexed indirect 
addressing -the form that uses the X register. And the 
other mode -indirect indexed addressing — is the mode 
that makes use of the Y register. 

Both indexed indirect addressing and indirect indexed 
addressing have one unfortunate limitation: they can be 
used only with zero-page addresses, that is, with memory 
locations that have addresses ranging from $00 to $FF 
(or from to 255 in decimal notation). Much more will 
be said about zero-page addresses in later columns, but 
this is all we need to know about them right now: since 
there are only 256 such addresses in the memory space 
of a Commodore computer-and since most of those are 
used by the Commodores BASIC interpreter and oper- 
ating system -the zero-page memory requirements of 
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indirect addressing place rather severe restrictions on the 
use of indirect addressing in user-written programs. These 
restrictions are especially severe in the case of indexed 
indirect addressing, because indexed indirect addressing 
can be used only with address tables that arc located in 
their entirety on Page Zero. Because of this limitation, 
indexed indirect addressing is not often employed in 
user-written programs. It is a good idea to know how 
it works, however, since it is sometimes encountered in 
ROM routines, and can even come in handy now and 
then in user-written programs, provided that the necessary' 
space on Page Zero can be found. 

INDEXED INDIRECT ADDRESSING 

When indexed indirect addressing is used in a program, 
the format is: 

LDA ($FB,X) 

If the above statement appeared in an assembly lan- 
guage program, the value of the X register would be 
added to the value of SFB. The resulting sum would then 
be interpreted as another address. However, the accum- 
ulator would not be loaded with the value of that address. 
Instead, the content of that address, and the content of 
the following address, would be interpreted as still another 



address. In other words, the indexed address would be 
used as a pointer to still another address. And that would 
be the final address of the instruction LDA. 

As an illustration of this concept, let us assume that 
the X register contained the value 2 when the statement 
"LDA ($FB,X)" was encountered in a program. First, 
the number $02 -the value of X register -would be added 
to the value SFB. The sum of this calculation would, of 
course, be SFD. And the content of that address— plus 
the content of the following address, $FE-would point 
to the final address to be accessed by the mnemonic LDA . 

Now let us suppose the 16-bit value of $1234 were 
stored in the zero-page pointers SFD and SFE. Since the 
low byte of a 16-bit value always comes first in 6510/8502 
assembly language, the contents of page-zero pointers 
SFD and SFE would thus be as follows: 



ADDRESS 

SFD 
SFE 



CONTENT 

$34 
$12 



Now let us suppose that the value SC000 were stored 
in memory address $1234. If the value of $1234 were 
stored in page-zero pointers SFD and SFE, as illustrated 
above, the 16-bit value contained in SFD and SFE would 
contain, or point to, the address $1234. So the final ef- 
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feet of the statement "LDA ($FB,X)" would be to load 
the accumulator with the value $C000. 

INDIRECT INDEXED ADDRESSING 

Indirect indexed addressing is more versatile -and 
therefore more useful -than is indexed indirect address- 
ing. When indirect indexed addressing is used to retrieve 
a value from a table or a block of data, only two bytes 
of valuable zero-page address space are needed. (In con- 
trast, in the indexed indirect addressing mode, a whole 
table of address pointers must reside on Page Zero.) 
Therefore, indirect indexed addressing is used much more 
often in user-written programs than is indexed addressing. 

The format of a statement that uses indirect indexed 
addressing is: 

LDA ($FB),Y 

In the above statement, it is worthwhile to note that 
while parentheses enclose the address $FB, the "Y" which 
represents the Y register lies outside the parentheses. This 
is important to remember, since it means that in indirect 
indexed addressing, the value of the Y register is used 
not to index the address $FB, but rather to index the con- 
tent of the address $FB. 

Now let us return to the statement "LDA ($FB),Y". If 
this statement were encountered in an assembly language 
program, the content of memory address $FB, plus the 
content of the following memory address -that is, SFC- 
would be interpreted as a memory address. Next, the val- 
ue of the Y register would be added to that address. And 
finally, the accumulator would be loaded with the con- 
tent of that final address. In other words, the 16-bit val- 
ue stored in the addresses SFB and $FC would be used 
as a pointer to indicate the final address of the instruc- 
tion LDA. 

To more clearly illustrate how indirect indexed address- 
ing works, let us assume that memory addresses SFB 
and $FC held the address $1234 when the statement "LDA 
($FB),Y was encountered. Since the low byte of a 16-bit 
value always comes first in 6510/8502 assembly language, 
the contents of memory addresses SFB and $FC would 
thus be as follows: 

ADDRESS CONTENT 



SFB 



$34 



SFC $12 

Now let us suppose that the Y register contained a 2 
when the statement "LDA ($FB),Y" appeared. In this 
event, the number $02 -the value of the Y register- 
would be added to the 16-bit address S1234, The sum 
of this calculation would, of course, be $1236. So the 
content of memory address $1236 would be interpreted 
as the final address to be accessed by the mnemonic LDA. 
Finally, let us suppose that the value SFOAC were stored 



in memory address $1236. If this were the case, the final 
effect of the statement "LDA ($FB),Y" would be to load 
the accumulator with the value SFOAC. 

IMPROVING THE QUEST 

Before I sign off this month, fd like to direct your at- 
tention to another program, Response, which appears af- 
ter 77ie Quest in the program listings section of this issue 
(see page 100) . Response works somewhat like Vie Quest, 
but demonstrates a few more programming techniques — 
and, in addition, provides an answer to the riddle pre- 
sented in Vie Quest. 

In Line 130, insted of using ASCII codes to represent 
typed characters, Response uses a pair of delimiters to 
enclose a real string of typed characters - a feature pro- 
vided in one form or another by most assemblers, in- 
cluding the Commodore 64 Assembler, the Merlin 64, 
and the Panther C-64. 

At the end of this text string, however, there is one 
ASCII code: the number 13, which equates to an end- 
of-line (or "EOL") character. (An ASCII code had to be 
used here, since typing an actual return character would 
cause the assembler to move on to another line.) 

In Lines 150 through 210 of Response, a text buffer 
(created in Line 510) is fiilcd, or "stuffed," with blank 
characters, or spaces. Next, in Lines 250 through 320, 
an X loop is used to place the text string in Line 130 
in the now-empty text buffer. Then, in Lines 360 through 
460, the message in the buffer is printed on the screen. 

The loop that prints the message works somewhat dif- 
ferently than the printing loop used in Vie Quest; in- 
stead of counting the number of characters in the text 
string which is being used, this loop keeps checking the 
accumulator lor the presence of an end-of-line character. 
If no EOL character is detected, the program loops back 
to Line 370. and prints the next letter on the screen. When 
the EOL character that ends the text string is finally 
found, the program ends, 

WHAT'S AHEAD 

Next month's column will include the most advanced 
typc-and-run program that has been presented in this 
space so far. Called Tlie Name Game, it is an interac- 
tive game that will demonstrate the use of indirect in- 
dexed addressing, and do a bit more, too. Vie Name 
Came, which I have used for years to demonstrate cer- 
tain programming principles, is a simple interactive game 
in which the player converses with the computer. It will 
not only print messages on the screen, it will also ac- 
cept typed-in text, and print that on the screen, too. It 
will then compare the data that is typed in with a string 
of data stored in a buffer— and will use this comparison 
to determine the outcome of the game. So— see you in 
next month's column. □ 

SEE PROGRAM LISTINGS ON PAGE 100 



All the programs in Ahoy! are available on disk or f ape. See page 23. 
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CADIST'S COLUMN 



FOR BEGINNING USERS OF THE COMMODORE COMPUTERS - By Cheryl Peterson 



Commodore's sales figures for Christmas 
1984 showed twice as many disk drive sales 
as Commodore 64 sales. So it's a safe bet 
that most of you have already upgraded 
your systems to include this much-needed 
peripheral. That's great, because most of this month's col- 
umn is going to concern the disk drive. For those of you 
who don't have drives, read this installment to find out 
some of the reasons for getting one. With the prices be- 
ing dropped (I've seen them as low as S159), now may 
be the time to buy. 

Despite complaints about the 154t's speed, it's a vast 
improvement over tape. Having used a disk drive from 
the very beginning, 1 can't even contemplate waiting for 
a tape program to load. Only twice have I been in a situa- 
tion desperate enough to warrant using the cassette drive, 
and both times I was elated to go back to my disk. 

DISK BASICS 

Although they may seem obvious to experienced disk 
users, there are some basic facts about using a disk bas- 
ed system that you should know. And don't think just be- 
cause you've been around, you know everything. 

Case in point: a professional musician who uses an 
electronic synthesizer calls my husband (who repairs elec- 
tronic equipment). Since it's fairly late in the evening, 
my husband is reluctant to run across town. The prob- 
lem is eventually traced to the disk drive in the synthe- 
sizer. In a brilliant flash of insight my husband asks, "Do 
you have the drive sitting on a speaker cabinet?" He did! 
Although moving the drive did not entirely solve the prob- 
lem, the incident does demonstrate that even experienced 
users sometimes forget the basics. 

Disks (and to a much lesser extent, drives) arc sus- 
ceptible to magnetic fields. A computer diskette is noth- 
ing more than a round recording tape; a piece of plastic 
with an iron oxide coating melded to it. Data is stored 
on the disk by polarizing the magnetic fields of the iron 
ions. If you take a disk and place it in an area where 
there is a high magnetic field (for instance, around speak- 
ers connected to stereo systems), it is entirely possible 
that you will erase the disk or scramble the data. 

The plastic on which the iron is mounted is similar 
to that used in record albums. Heat can warp the plastic 
and cold can make it brittle. At sufficiently low temper- 
atures, the iron oxide loses its bond to the plastic and 
there goes your data. 

Disk sleeves were made to be used. Please don't throw 
them away. The keeper of our user group library never 
could see any reason to take up extra space in files by 
leaving the jackets on the disks. After about six months 
of rubbing together, the oxide started falling off, and the 



entire library (some 120 disks worth) had to be rccopied 
onto new disks. Besides the expense of buying more disks, 
it took days to make the new copies. 

What I'm try> n £ t0 P™ 11 out ' s mat disks are fragile. 
Even the best disks will wear out eventually. Rut if you 
treat them right, they can last for several years. Disks 
that see heavy use may only last a year, but that's why 
you always keep backup disks, right?! 

A good rule of thumb is to make a backup copy of 
the file in which you are working at least once every half 
hour. This way you never lose more than 30 minutes of 
work. Frequently, the backup copy is on the same disk 
as the original. Most word processors and other heavy 
use software have a save and continue working feature 
that will quickly create a duplicate of the file so far and 
then let you continue where you left off. This is your 
first backup. 

At day's end. it's a good practice to use a copy program 
to make a duplicate of each disk modified that day. (These 
copies should be made on disks that will be stored sep- 
arately from those you use each day) If you are doing 
anything more important than writing letters to goldfish, 
a safety is a necessity. I hope to compare a few of the 
commercial copy programs in a future column. Fast Load 
has such a program built into it, 

ORGANIZATION 

Most beginners don't have any idea how fast the disks 
collect. With a typical family, before you know it. you'll 
have disks with programs written in BASIC, COMAL, 
PASCAL, machine language, or any combination thereof. 
You'll have databases, letters created with different word 
processors, songs written with music processors, sprites 
made with sprite generators, pictures created with a va- 
riety of graphics packages, and data disks that track your 
progress with the very latest in adventure games. 

And all of them will have cryptic labels that list about 
three files! If you're lucky, there might even be a semi- 
meaningful diskname. Something like WN!DD1.01 (Write 
Now! Data Disk 1.01) And if you've been making safe- 
tics like you should, whew! 

Now for the good news! You, as beginners, are in the 
perfect position to nip this problem in the bud. Start out 
with some plan for labeling disks. Everyone who uses 
the computer should help come up with a logical system 
("or organizing disks. I recommend using disknames that 
key the data to whatever disk was used to create it and 
then a general category type. 

For instance: 

WN!Personal LetJA 

WN!Personal Let.FB 

WNIBusiness Let.01 
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BSWTom Crcative.WR 
BSWSusan Book R.OI 
BSWSusan Book R.02 
Ahoy! PRG Fiies.01 
CompuServe Down. 01 
Cher PRG Games .0! 

With a little imagination, these disknames can identi- 
fy the disk's information; WN!=JWte Now!, Lct=Let- 
ters. JA= January, FB= February. BSW=&mk Street Writ- 
er. WR=Writing, R = Reports, PRG=program files, 
Down = Downloaded files, Tom, Susan, and Cher are 
family members who regularly use the disk. 

It took me three days to organize the mess that six 
months of haphazard disk and file naming had created. 
Oh, how I wished someone had warned me to be organ- 
ized from the beginning. 

Even with organization, it can still be tough to find 
a particular file that you haven't looked at for months. 
A good disk catalog program will really help here. I've 
seen one thai costs about S30 and includes an option to 
print labels. 

MACff 5's DISK CATALOG PROGRAM 

For my money. I'd get Access Software's Much 5 cart- 
ridge instead. Although it doesn't print labels, its fea- 
tures are almost indispensible. Besides speeding up disk 
access, Much 5 enables a catalog program that comes 
on disk. 



Another option lets you view or print a listing of the 
disks in a catalog (see figure 2). This is especially use- 
ful at the beginning of your catalog, since it lists how 
much free space each disk has. Ever wonder which of 
your disks has enough room for a 20 block file and spend 
half an hour swapping disks in and out to find one? With 
this program, you never will. 

To update a listing, you delete modified disks by en- 
tering their disknames. It isn't necessary to delete each 
file name: the program automatically finds each one as- 
sociated with a deleted diskname and removes it. Then 
you use the "Add a disk function" to update the files. 

There's even an option to change a diskname without 
having to reformat the whole disk (something I've seen 
no other program do). Even if you're a few months along 
in "haphazard" mode, it isn't too late to start getting or- 
ganized with Much 5. 

One big hassle facing new drive users is learning the 
new, save, load, format, initialize, and validate com- 
mands. A disk provided with the drives contains a DOS 
(Disk Operating System) wedge that is supposed to make 
using these features easier. The wedge must be loaded 
before using it. however. Much 5 has a built in DOS 
wedge, accessible from BASIC. Because it is on cart- 
ridge, though. Much 5's DOS doesn't have to be loaded 
from BASIC. The command structure looks much like 
that of the Commodore DOS wedge, so the commands 
aren't confusing to more experienced users. 

Beginners may not be aware that before you can use 
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Page 1 

File File Disk 
Type Si2e Name 

SEQ 1 fourth 

PRG 1 fifth 

SEQ 3 fifth 

PRG 1 write now! 

PRG 1 first 

SEQ 1 mj data 

SEQ 1 mj data 

PRG 1 assembly 

PRG 1 assembly 



Starting Starting Entry 
Track Sector Order 



24 
11 
19 
20 
23 
20 
20 
16 
16 
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7 

16 

18 

17 

4 

3 
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5 
5 
6 
2 
11 
11 
9 
9 



FIGURE 1 (top): a Maeh 5-generated disk directory. 
FIGURE 2 (right): list of disks in Mack 5 catalog. 

And is it a dandy! After creating a data disk for your 
catalog to reside on, you just swap in a disk whose di- 
rectory you want added to the catalog. Take that disk out 
and put the catalog data disk back in. That's about it. 

Each disk that you want added is swapped in. When 
you get them all entered, a sort routine in the program 
will alphabetize them. The printout looks great! (see fig- 
ure 1). Not only do you know where to find the file you're 
looking for, you can see how big it is. I usually keep 
a printout of the catalog in a binder, next to my disk files. 
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List of Di rectori es 

1 ledger data file Free Sectors = 645 

2 first Free Sectors = 423 

3 second Free Sectors = 574 

4 fourth Free Sectors = 333 

5 H fth Free Sectors = 197 

6 write now! Free Sectors = 517 

7 ok8 Free Sectors = 635 
6 ok7 Free Sectors = 632 
9 assembly Free Sectors = bU4 

10 data Free Sectors - 641 

11 mj data Free Sectors = 508 




10 issues of TPUG magazine 

Advice from experts like Jim Butterfield and Elizabeth Deal 
Access to a huge library of outstanding public domain software 
An invitation to attend the Annual TPUG conference, May 25 and 26 
in Toronto, Canada, with two full days of seminars on all aspects of 
Commodore computing. 



JOIN NOW! 



I would like to join TPUG as an associate member at a cost of US$2500. 
Send your cheque, money order or credit card number to: 

TPUG Inc., 

191 2A Avenue Road, 

Toronto, Ontario, Canada 

M5M 4A1 



Name. 



Address . 



P Cheque 
Credit Card # 



I Money Order 



DCredit Card 
Expiry date 



Type of Computer 



Disk Drive 



Printer 



Reader Service No. 162 



Amount in US. funds $ . 
Signature 



Modem 



Other 



a disk with the Commtxjore drive, it must be formatted. 
This two-minute process requires typing the command 
line (in BASIC): 

PRINT#15 t "NEW0:NAME,ID" 

where "name, id" is the disknamc and identification code. 
If the DOS wedge is loaded or the Modi .5 cartridge is 
in, you can type @ instead of PRINT#15. 

Even without its quick loading features. Much 5 is an 
excellent package. And at $34.95, it's a bargain, too. 

TIPS ON BUYING SOFTWARE 

Although I don't buy software often, there are a few 
tricks I've picked up along the way that I'll pass on to 
you. (Don't be surprised if they don't agree with any- 
thing you've heard elsewhere.) 

Before deciding to buy any "productivity" type soft- 
ware, check back issues of magazines for buyer's guides 
and indepth reviews. Make a list of the features you def- 
initely need and those you'd like to have if the price isn't 
too high. Be careful not to pay exorbitant prices for "bells 
and whistles" you don't need or want. 

Read as many current Commodore magazines as you 
can get your hands on. Don't be an indiscriminate read- 
er; look for useful buying information. Read magazines 
with a pen in your hand and a pile of note cards sitting 
next to you. If the family's decided to buy a word pro- 
cessing program in the next couple of weeks, make notes 
on all the pertinent advertisements: software name and 
manufacturer, what features are offered, asking price, 
page and magazine of advertisement. If you see a pack- 
age that interests you, look lor the discounted price be- 
ing offered by mail order firms. 

Mind you, I didn't recommend buying it from a mail 
order company. Find a local deafer who doesn't mind 
letting you hang around the store. Hang around. Try out 
the software you're interested in. Try it on a system sim- 
ilar to yours. Be sure the package will work with your 
hardware combinations. What kind of printer, interface, 
modem, or input devices do you need? Does thai soft- 
ware need a high resolution or low resolution light pen? 

While you're in the store, check the prices of disks. 
Even if you don't find the software you want, you can 
always use a few more disks and the store owner may 
be running a sale. You'd be surprised at the number of 
times I've walked out of a store empty-handed only to 
discover two days later that I had only one clean disk left. 

Before buying, compare prices realistically. 

Most mail order places now add a three to four per 
cent surcharge to credit card orders or a three to five 
dollar charge for COD. On top of that, there's a three 
dollar to five per cent shipping and handling charge. By 
the time you add it all up, you may only be saving a cou- 
ple of dollars. 

Then there's the waiting. If you buy software at a lo- 
cal store, it's yours when you walk out. You run right 
home and use it. Not so with mail order. If you pay by 
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check, there's a two week wait while it clears. Discoun- 
ters advertise some products that are not in stock, since 
magazine ads must be placed two to three months in ad- 
vance. A particularly popular package may be tempor- 
arily sold out, as well. Even if it is in stock, UPS gen- 
erally takes 5 to 8 days to deliver. 

Though mail order companies must ship your order 
within 30 days or inform you of the delay and offer to 
refund your money, they are not required to pay you in- 
terest on your money while they hold it. If there's a chance 
the software will come in a future shipment, they'll usu- 
ally advise you lo wait another couple of weeks before 
requesting a refund. After all, it takes the accounting de- 
partment a couple of weeks to issue a refund check. 

For your two dollar savings, you've given away the op- 
portunity to lake the software back to the store for a cred- 
it if it doesn't work. Since most local dealers want to keep 
your business, they'll try very hard to make you happy. 
Usually all you need do is bring the software back and 
show that it doesn't work on their computers, either. 

This may lead to finding you actually have a hardware 
problem, or it could get you another copy of the soft- 
ware. Ai ihe very least, if the software won't load, most 
stores will give you a credit against any other merchan- 
dise you want lo buy. Refunds are almost unheard of, 
no matter where you buy. 

If you bought from a discount house, you can be almost 
guaranteed hassles. Don't hold your breath while wait- 
ing for most mail order houses to issue a return authori- 
zation number. Did I mention that you'll have to call on 
their user support line, so you gel lo pay long distance 
charges? 800 numbers are for orders only. When you do 
get permission to send it back, you go stand in line at 
the post office to send the package "Return receipt re- 
quested." This way you get back a post card that con- 
firms that software company "XYZ" got the software. 

And wait, and wait, and wait. 

After several weeks, you may get a package with an- 
other copy of the software. If not, you call the company 
and hassle it out. 

With certain software manufacturers, this isn't neces- 
sary. They offer a warranty! You ship the faulty disks 
to their main office and they send you new ones that 
should work. Usually, it'll only cost you another five dol- 
lars more plus shipping. Don't forget "Return receipt re- 
quested." And should the problem he hardware related, 
the new disks won't work, either. 

So don't be so sure mail order is really cheaper. It may 
save a couple of dollars initially, but you'll probably pay 
for it in waiting time later. 

Buying software can be a harrowing exercise. The best 
protection against disappointment is research. Magazines 
are a gtmd starting point, but personal recommendations 
from friends or members of the local user group can lead 
to bargains. Try before you buy is still the best guaran- 
tee of satisfaction, though. 

Next month, a few words about fans, furniture, and 
other fun stuff. D 



PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy! Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 




n the following pages you'll find several pro- 
grams thai you can enter on your Commo- 
dore computer. But before doing so, read this 
entire page carefully. 
To insure clear reproductions. AhoyFs program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Com- 
modore programs. These are therefore represented by 
various codes enclosed in brackets | j. For example: the 
SHIFT CLR/HOME command is represented onscreen 
by a heart ^ . The code we use in our listings is 
[CLEAR). The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two sym- 
bols. The symbol on the left is obtained by pressing that 
key while holding down the COMMODORE key; the 
symbol on the right, by pressing that key while holding 
down the SHIFT key. COMMODORE and SHIFT char- 
acters are represented in our listings by a tower-case "s" 
or "c" followed by the symbol of the key you must hit. 
COMMODORE J, for example, is represented by [c Jj, 



and SHIFT J by |s J]. 

Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "[LEFT]"] would be 3 CuRSoR left com- 
mands in a row, f5 "[s EP]"] would be 5 SHIFTed En- 
glish Pounds, and so on. Multiple blank spaces will be 
noted in similar fashion: e.g., 22 spaces as [22 ""]. 

Sometimes you'll find a program line that's too long 
for the computer to accept (C-64 lines are a maximum 
of 80 characters, or 2 screen lines long; VIC 20 lines, 
a maximum of 88 characters, or 4 screen Sines). To en- 
ter these lines, refer to the BASIC Command Abbrevia- 
tions Appendix in your User Manual. 

On the next page you'll find our Bug Repellent pro- 
grams for the VIC 20 and C-64. The version appropri- 
ate for your machine will help you proofread our pro- 
grams after you type them. (Please note: the Bug Repel- 
lent line codes that follow each program line, in the 
whited-out area, should not be typed in. See the instruc- 
tions preceding each program.) 

Also on the following page you will find Flankspeed, 
our ML entry program, and instructions on its use. □ 

Call Ahoy.' at 212-239-0855 with any problems. 
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I M PORTA MTI Letters on white background are Bug Repellent line codes Do not enter them! This and the preceding explain these 
I Ifll Ufi Irlll I . codes and provide other essential information on entering Ahoy! programs Read these pages before entering programs 



BUG REPELLENT 

This program will let ymi debug any Almv! program. Follow in- 
structions lor Vic 20 (cassette or diski or C-64. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

For cassette: type in and save the Bug Repellent program, then 
type RUN 63<>00[RETURN)SYS 828[RETURN], If you typed the 
program properly, it will generate u set of two-letter line codes that 
will match those listed to the right of the respective program lines. 

Once you've got a working Bug Repellent, type in the program 
you wish to check. Save it and type the RUN and SYS commands 
listed above once again, then compare the line codes generated to 
those listed in the magazine. If you spot a discrepancy, a typing 
error e,\ists in that line. Important; you must use exactly the same 
spacing as the program in the magazine, Due to memory limitations 
on the VIC. the ViC Iht.i; Repellent will register an error if your 
spacing varies from what's printed. 

You may type SYS H2K as many times as you wish, hut if you 
use the cassette for anything, type RUN 63000 to restore the 
Repellent. 

When your program has been disinfected you may delete all lines 
from 63000 on. (Be sure the program you tvpe doesn't include lines 
above 63000!) 

For disk: enter Bug Repellent, save it. and type RUN: NEW 
| RETURN]. Type in the program you wish to check, then SYS 828. 

To pause the line codes listing, press SHIFT. 

To send the list to the printer tvpe OPEN 4,4:CMD 4:SYS 
828[ RETURN | . When the cursor comes back, type 
PRINT#4:CLOSE 4I.RETURN1.. 

•63V/; FORX=828T01O23:READY:POKEX,Y:NEXT:END AC 
•63001 DATA169, 0,133, 63, 133, 64,165, 43, 133, 251 JL 
•63002 DATA165.44, 133,252, 160,0, 132,254,32, 228 DF 
•63003 DATA3, 234, 177, 25 1,208, 3 ,76, 208, 3, 230 0E 
•63004 DATA251, 208, 2 ,230, 252, 169, 244, 160, 3, 32 OH 
•63005 DATA30, 203, 160,0,177,251,170,230,251,20 

8 K0 

•63006 DATA2, 230, 252, 177, 25 1,32, 205, 22 1,169, 58 JJ 
•63007 DATA32, 2 10, 255, 169, 0,133, 253, 230, 254, 32 OK 
•63008 DATA228, 3, 234, 165 ,253, 160, 0,1 70, 177, 251 LG 
•63009 DATA201,32,240,6,138,113,251,69,254,170BP 
•63010 DATA 138, 133, 253, 177, 25 1,208, 226, 165, 253 

,41 DD 

•63011 DATA240, 74, 74, 74, 74, 24, 105,65,32,210 EK 
•63012 DATA255, 165, 253, 41, 15, 24, 105, 65, 32, 210 F0 
•63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 PK 
•63014 DAT A 1,208, 249, 230, 63, 208 ,2, 230, 64, 230 CB 
-63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 KH 
•63016 DATA160,3,32,30,203,166,63,165,64,32 DP 
•63017 DATA205, 221, 169, 13,32,210,255,96,230,25 

1 EL 

•63018 DATA208,2,230,252,96,0,76,73,78,69 01 

•63019 DATA83, 58, 32, 0,76, 73,78,69,32,35 FG 

•63020 DATA32, 0,0, 0,0,0 LE 

C-64 VERSION 
By Michael Kleinert and David Barron 

Type in. SAVE, and RUN the Hue Repellent. Type NEW. then 
type in or LOAD the Ahoy! program you wish to check. When dial's 
done, SAVE your program (don't RUN it!) and t\pe SYS 49152 
[RETURN). 

To pause the listing depress and hold the SHIFT key. 

Compare the codes your machine generates to the codes listed 
to the right of the respective program lines. If you spot a difference, 
an error exists in thai line. Jot down (he number of lines where 
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contradict ions occur. LIST each line, spot the errors, and correct 
them. 

•5000 F0RX=49 152TQ49488: READY :P0KEX,Y: NEXT: END GJ 

•5001 DATA32, 161, 192, 165, 43 ,133, 251, 165, 44, 133 DL 

•5002 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DB 

•5003 DATA251.208, 3, 76, 138, 192,230,251,208,2 OF 

•5004 DATA230,252,76,43,192,76,73,78,69,32 KN 

•5005 DATA35,32,0, 169,35, 160, 192,32,30, 171 CA 

•5006 DATA 160, 0,1 77 ,251, 170, 230, 251, 208, 2, 230 CE 

■5007 DATA252, 177, 251, 32, 205, 189,169,58,32,210 JE 

■5008 DATA255, 169, 0,133, 253, 230, 254, 32, 37, 193 CL 

•5009 DATA234, 165, 253, 160, 0,76, 13, 193, 133, 253 NB 

•5010 DATA177, 251, 208, 237, 165, 253, 41, 240, 74, 74 MB 

■5011 DATA74, 74, 24, 105, 65, 32, 2 10, 255, 165, 2 53 EP 

■5012 DATA4 1,15, 24, 105, 65, 32, 210, 255, 169, 13 GH 

•5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 

■5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 

■5015 DATA160, 192, 32, 30, 171, 166, 63, 165, 64, 76 

• 5016 DATA231 , 192 , 96 , 76 , 73 , 78 , 69 , 83, 58 , 32 

•5017 DATA0, 169, 247, 160, 192 ,32, 30, 171, 169, 3 

•5018 DATA133, 254, 32, 228, 255, 201, 83, 240, 6, 201 

•5019 DATA80, 208, 245, 230 ,254, 32, 2 10, 255, 169, 4 



AN 
NG 
BF 
EP 
PJ 
FK 
FL 



■5020 DATA 166, 254, 160, 255 ,32,186,255,169,0,133 CL 



•5021 DATA63, 133, 64 ,133, 2, 32, 189, 255, 32, 192 

•5022 DATA255, 166, 254, 32, 201, 255, 76, 73, 193 ,96 

•5023 DATA32, 210, 255, 173, 141, 2, 41, 1,208, 249 

* 5024 DATA96, 32 , 205 , 189 , 169 , 13 , 32 , 210 , 255,32 

•5025 DATA204, 255, 169,4,76, 195,255, 147,83,67 

•5026 DATA82, 69, 69, 78, 32, 79, 82, 32, 80, 82 

•5027 DATA73, 78, 84, 69, 82, 32, 63, 32, 0,76 

•5028 DATA44, 193, 234, 177, 251, 201, 32, 240, 6, 138 

•5029 DATA1 13, 25 1,69, 254, 170, 138, 76, 88 ,192,0 

• 5030 DATA0 , , , 230 , 25 1 , 208 , 2 , 230 , 252 , 96' 

■5031 DATA170, 177, 251, 201 ,34, 208, 6, 165, 2,73 

■5032 DATA255, 133, 2, 165, 2, 208, 2 18, 177, 251 ,201 

■5033 DATA32, 208,212, 198,254, 76, 29, 193,0, 169 

•5034 DATA13, 76, 210, 255, 0,0,0 
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FOR THE C-64 



By Gordon F. Wheat 

l'htnk\peeil will allow you loenlcr machine language Ahoy! pro- 
grams without any mistakes. Once you have typed the program in. 
save it for future use. While entering an Ml, program with 
Flonkspeed there is no need to enter spaces or hit the carriage return. 
This is all done automatical!) . If you make an error in a line a hell 
will ring and you will Ik asked to enter it again. To LOAD in a 
program Saved with Fhinkfipeftl use LOAD "name". I.I for tape. 
or LOAD "name". 8. 1 lor disk, 'flic Function keys may be used alter 
the slatting and ending addresses huve been entered. 
fl— SAVE.% what you have entered so far, 
O — LOADs in a program worked on previously. 
15 -To continue on a line you stopped on after LOADutg in the 
previous!) saved work. 

17- Scans through the program to locale a particular line, or to lind 
out where yn\ slopped the fist nine you entered the program. 17 
temporarily freezes die output as uell 

•5 P0KE53280,12:P0KE53281,11 • 
•6 PRINT" [ CLEAR ][c 8][RVS0N][15" "]FLANKSPEED[ 
15" "]"; 

"]MISTAKEPR00F ML ENTRY P 



■10 FRINT"[RVS0N][5" 
R0GRAM[6" "]" 
•15 PRINT"[RVS0N][9" 

•20 PRINT"[RVS0N][3" 



" ] CREATED BY G. F. WHEAT [ 
"]C0PR. 1984, ION INTERNA 



LI. 
ED 
MC 
DM 



TIONAL INC, [3" "]" 

30 FORA=54272T054296:FOKEA ,0:NEXT 

40 P0KE54272 ,4 : P0KE54273 , 48 : P0KE54277 ,0 : P0KE5 

4278,249:POKE54296,15 

70 F0RA=680T0699 : READB: POKE A , B : NEXT 

75 DATA169, 251, 166 ,253 ,164 ,254, 32 ,216, 255, 96 

76 DATA169, 0,166, 251, 164, 252, 32, 213, 255, 96 

80 B$="STARTING ADDRESS IN HEX":GOSUB2010:AD= 

B:SR=B 

85 G0SUB2520:IFB=0THEN80 

POKE251,T(4)+T(3)*16:POKE252,T(2)+T(l)*16 
B$="ENDING ADDRESS IN HEX":G0SUB2010:EN=B 
GOSUB2510: IFB=0THEN80 
P0KE254,T(2)+T(1)*16:B=T(4)+1+T(3)*16 
IFB>255THENB=B-255:POKE254,PEEK(254)+l 
POKE253,B:PRINT 

REM GET HEX LINE 

G0SUB3010: PRINT": [c P][LEFT]"; :F0RA=0T08 

F0RB=0T01:G0T0210 

NEXTB 

A%(A)=T(l)+T(O)*16:IFAD+A-l=ENTHEN310 

PRINT" [c P][LEFT-]"; 

NEXTA:T=AD-(INT(AD/256)*256): PRINT" " 

F0RA=0T07:T=T+A%(A) : IFr>255THENT=T-255 

NEXT 

IFA%(8)OTTHENG0SUB1010:G0T0110 

F0RA=0T07:POKEAD+A,A%(A):NEXT:AD=AD+8:GOT 
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200 REM 



210 
211 
212 
213 

214 
215 



":GOT04500 
":GQT04700 
=ASC(A$)-55:GOTO 



GET HEX INPUT 

GETA$:IFA$=""THEN210 

IFA$=CHRS(20)THEN270 

IFAS=CHR$( 133)THEN4000 

IFAS=CHR$( 134)THEN4100 

IFA$=CHR$( 1 35 )THENPR 1 NT" 

IFA$=CHR$(136)THENPRINT" 
220 IFA$>"@"ANDA$<"C"THENT<B) 
250 

230 IFA$>"/"ANDAS<":"THENT(B)=ASC(A$)-48:GOTO 
250 
240 
250 
260 
270 
272 
274 



G0SUB1100:G0TO210 
PRINTA$"[c P][LEFT] 

GOTO 125 
IFA>0THEN280 

A=-1:IFB=1THEN290 
G0T0140 



280 IFB=0THENPRINTCHR$(20) ;CHR$(20) ; :A=A-1 

285 A=A-1 

290 PRINTCHR$(20) ; :G0TO140 

300 REM LAST LINE 

310 PRINT" ":T=AD-(INT( AD/256)* 256) 

320 FORB=0TOA-l:T=T+A%(B):IFT>255THENT=T-255 

330 NEXT 

340 IFA%(A)OTTHENC0SUB1010:G0T0110 

350 FOR B=OTOA- 1 : POKE AD+B, A%(B) : NEXT 

360 PRINT: PRINT" YOU ARE FINISHED! ":G0T04000 

1000 REM BELL AND ERROR MESSAGES 



1010 PRINT: PRINTLINE ENTERED INCORRECTLY": PR 
INT: GOTO 1100 

1020 PRINT: PRINT"INPUT A 4 DIGIT HEX VALUE!": 
GOTO 1100 

1030 PRINT: PRINT"ENDING IS LESS THAN STARTING 
!":B=0:GQT01100 

1040 PRINT: PRINT" ADDRESS NOT WITHIN SPECIFIED 
RANGE! ":B=0:GOT01 100 

1050 PRINT :PRINT"NOT ZERO PAGE OR ROM!":B=0:G 
OT01100 
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1060 PRINT"?ERROR IN SAVE" :G0T01 100 

1070 PRINT"?ERROR IN L0AD":G0T01100 

1080 PRINT: PRINT :PR1NT"END OF ML AREA":PRINT 

1 100 P0KE54276 ,17: POKE54276 , 16 : RETURN 

1200 0PEN15,8,15:INPUT#15,A,A$:CL0SE15:PRINTA 

$: RETURN 

2000 REM GET FOUR DIGIT HEX 

2010 PRINT :PRINTB$;:INPUTr$ 

2020 I FLEN (T$ ) O4THENG0SUB1020 : G0T020 1 

2040 FORA=IT04:A$=MID$(T$,A,1):GOSUB2060:IFT( 

A)=16THENGOSUB1020:GOT020lO 

2050 NEXT:B=(T<l)*4096)+(T(2)*256)-f(T{3)*16)+ 

T(4): RETURN 

2060 IFA$>"@"ANDA$<"G"THENT(A)=ASC(A$)-55:RET 

URN 

2070 IFA5>"/"ANDA$<":"THENT(A)=ASC(A$)-48:REr 

URN 

2080 T(A)=16:RETURN 

2500 REM A DRESS CHECK 

2510 IFAD>ENTHEN1030 

2515 IFB<SRORB>ENTHEN1040 

2520 TFB<2560R(B>40960ANDB<49152)ORB>53247THE 

N1050 

2530 RETURN 

REM ADDRESS TO HEX 

AC=AD : A=4096 : GOSUB3070 

Ao256:GOSUB3070 

A=16:GOSUB3070 

A=l:GOSUB3070 

RETURN 

T=INT(AC/A):IFT>9THENA$=CHR$(T+55):GOT03 



3000 

3010 

3020 

3030 

3040 

3060 

3070 

090 

3080 A$=CHR$(T+48) 

3090 PRINTA$; :AC=AC-A*T: RETURN 

4000 A$="**SAVE**" : GOSUB4200 

4050 OPEN 1 , T , 1 , A$ : SYS680 : CL0SE1 

4060 IFST=OTHENEND 

4070 G0SUB1060 : I FT=8THENG0SUB1 200 

4080 G0T04000 

4100 A$="**LOAD**" :GOSUB4200 

4150 0PEN1,T,0,A$:SYS690:CL0SE1 

4160 IFST=64THEN110 

GOSUB1070:IFT=8THENGOSUB1200 

GOT04100 

PRINT" ":PRINTTAB(14)A$ 

PRINT: A$="" : INPUT"FILENAME" ; A$ 

IFA$=""THEN4210 

PRINT :PRINT"TAPE OR DISK?": PRINT 

GETB$ :T=1 : IFB$="D"THENT=8 : A$="@0: "+A$ : RE 



4170 

4180 

4200 

4210 

4215 

"4220 

4230 

TURN 

4240 

4250 

4500 

B 

4510 

4520 

4700 

B 

4705 

4706 

4710 



IFB$O"T"THEN4230 

RETURN 

B$="CONTINUE FROM ADDRESS" :G0SUB2010: AD= 

G0SUB2515 : IFB=0THEN4500 

PRINT :G0T0110 

BS="BEGIN SCAN AT ADDRESS" :GOSUB2010: AD; 



G0SUB2515: IFB=0THEN4700 

PRINT :G0T04740 

F0RB=0T07:AC=PEEK(AD+B):G0SUB3030:IFAD+B 
=ENTHENAD=SR:G0SUB1080:G0T0110 
4715 PRINT" ";:NEXTB 
4720 PRINT: AD=AD+8 
4730 GETB$ : IFB$=CHR$( 136)THEN 1 10 
4740 GOSUB3010: PRINT": "::GOT0471O 



EI 
GL 
PG 
BH 

IM 
PC 
GM 

II 

AD 

GF 

EH 

KP 
NP 
LI 
MI 
MG 

MI 
IM 
EB 
HG 
CE 
PN 
MJ 
IM 

CJ 
JP 
AC 
A I 
LH 
EO 
FJ 
FF, 
AB 
MF 
JH 
CM 
FO 
FG 
OM 
GF 
DF 

IG 

FN 
IM 

DK 
MA 

01 

FH 
NK 
DI 

BK 
EC 
GN 
MN 
JD 
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DRAGON TYPE 

FROM PACE 61 program i 

•10 REM PROGRAM 1 NA 
•20 PRINT" [CLEAR] [DOWN] [DOWN ] LOADING MAC 

HINE LANGUAGE" MP 
• 30 FOR 1=491 52T049946 : RE AD A : POKEI , A : NEXT: 

REM CHECKSUM=98881 CI 

•40 PRINT" [DOWN] LOADING DRAGON TYPE2" GP 

•50 L0AD"DRAG0N TYPE2",8 HP 

•100 DATA32, 110 ,193, 169, 205 ,133, 128, 169 DN 

•101 DATA4, 133, 129, 169, 11 ,141 ,39, 208 EH 

•102 DATA141,40,208,141,41,208,169,1 NE 

•103 DATA141,21,208,169,0,141,25,195 BP 

•104 DATA141,0,208, 141, 16,208, 141,26 CH 

•105 DATA195,169,85,141,203,194,173,23 BM 

•106 DATA195,141,206,194,169,11,141,207 KG 

•107 DATA194,32,38,193,169,15,141,248 KK 

•108 DATA7, 169, 0,141, 209, 194, 32, 154 PN 

•109 DATA192, 201, 136, 240,69, 32, 38, 193 CE 

•110 DATA169, 0,141, 16, 208, 141, 0,208 EH 

•111 DATA24,173,203, 194, 105,16,201,220 AH 

•112 DATA176, 9, 141,203, 194, 32, 132,193 BN 

•113 DATA76, 57, 192,169,14,141,248,7 DB 

•114 DATA169,0,141,16,208,169,164,141 OJ 

•115 DATAO, 208, 169, 70, 141, 1,208, 169 NM 

•116 DATAO, 141, 39, 208, 169, 5, 141, 33 NK 

•117 DATA208,169,13,141,32,208,32,121 HN 

•118 DATA193,96,169,1,141,26,195,76 KF 

•119 DATA 107, 192,32,228,255,201, 136,240 KK 

•120 DATA55, 201, 32, 144, 245, 141,208,194 GF 

•121 DATA32, 217, 192,224,1,240,235,201 LI 

•122 DATA91, 176, 231, 169, 14, 141, 248, 7 KK 

•123 DATA32,3,193,32,153,193,174,24 MO 

•124 DATA195,32,103, 193, 169,15,141,248 HA 

•125 DATA7, 32, 3, 193, 173, 16, 208, 240 NJ 

•126 DATA201, 173, 0,208, 201, 28, 144, 194 MJ 

•127 DATA96, 172, 209, 194,177,128,201,32 CF 

•128 DATA 144, 27, 56, 237, 208, 194, 240, 11 LA 

•129 DATA238,25,195,32,197, 193, 162,1 AC 

•130 DATA76,252,192, 169,32, 145, 128,238 JO 

•131 DATA209, 194, 162,0,96,24, 105,64 ON 

•132 DATA76.226, 192, 169,4,141,204,194 GE 

•133 DATA238, 0,208, 173, 0,208, 141,0 DD 

•134 DATA208,208,5,169,1,141,16,208 NP 

•135 DATA162.2,32,103,193,206,204,194 FK 

•136 DATA 173, 204, 194, 208, 227, 96, 173, 203 EB 

•137 DATA194, 141, 1,208, 173, 207, 194, 141 HA 

■138 DATA205,194,169,4, 141,204, 194,238 FH 

•139 DATAO, 208, 174, 206, 194, 32, 103, 193 EN 

•140 DAT A 206, 204, 194, 173,204,194,208,239 A J 

•141 DATA173,248,7,201,13,208,6,238 GA 

•142 DATA248,7,238,248,7,206,248,7 LL 

•143 DATA206.205, 194,173,205, 194, 208,210 AO 

•144 DATA96, 160, 255, 136, 208, 253, 96, 32 ID 
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•145 DATA97,193,202,2O8,250,96,165,128 JD 

•146 DATA141, 211, 194, 165, 129, 141, 210, 194 ND 

•147 DATA96, 173, 21 1,194, 133, 128, 173, 210 NE 

•148 DATA194,133,129,96,24,177,128,32 AA 

•149 DATA210, 255, 105, 64, 165, 128, 105,80 JF 

•150 DATA133,128, 165, 129,105,0,133,129 GC 

•151 DATA96, 169, 15, 141, 0,212, 169, 85 OB 

•152 DATA141,24,212,169, 18,141, 1,212 KG 

•153 DATA169, 65, 141,6, 212, 169,28, 141 IE 

•154 DATA5, 212,169, 129, 141, 4, 212, 162 GA 

•155 DATA22,32,97,193,202,208,250,169 AA 

•156 DATA128, 141,4,212, 96, 169,0, 141 EN 

•157 DATAO, 212, 169, 2, 141,32,208,169 IG 

•158 DATA85, 141, 24, 212, 169, 38, 141,1 FA 

•159 DATA212, 169,65, 141,6,212, 169,45 MK 

•160 DATA141, 5, 212, 169,33,141,4,212 BF 

•161 DATA162,45,32,97,193,202,208,25O LM 

•162 DATA169,32,141,4,212,169,5,141 KB 

•163 DATA32, 208, 96, 160, 255, 169, 3, 141 LA 

•164 DATA33, 208, 169, 14,141,32,208,200 PL 

•165 DATA185, 212, 194, 32, 210, 255, 201,0 PN 

•166 DATA208, 245, 169, 163, 160,40, 32, 210 LL 

•167 DATA255, 136,-208,250,32,110,193, 162 MK 

•168 DATA200,32,103,193,169,157,133,128 FH 

•169 DATA169,5,133,129,169,0,141,16 JN 

•170 DATA208, 169,3,141,0,208,169,11 EN 

•171 DATA141,39,208,141,40,208,141,41 LG 

•172 DATA208,169,8,141,25,195,169,125 EP 

•173 DATA141,203,194,169,26,141,207,194 JC 

•174 DATA169, 25, 141, 206, 194, 169,0,141 00 

•175 DATA209.194, 162,255,32, 103, 193,206 LO 

•176 DATA25,195,173,25, 195,208,243, 169 EP 

•177 DATA1, 141, 21, 208, 32, 38, 193, 169 KF 

•178 DATA1 5, 141, 248, 7, 162, 180, 32, 103 JI 

•179 DATA193,169,14,141,248,7,32,153 OH 

•180 DATA193,172,209,194,32,243,192,32 LI 

•181 DATA3, 193, 162, 55, 32, 103, 193, 169 DH 

•182 DATA15,141,248,7,32,3,193,162 GG 

•183 DATA80,32,103,193,173,2O9,194,201 NO 

•184 DATA13, 208, 214, 169, 13, 141, 248, 7 GK 

•185 DATA162,100,32,103,193,169,8,141 IB 

•186 DATA206,194,169, 11,141,207, 194,32 FN 

•187 DATA38, 193,169,1,141,16,208,169 EA 

•188 DATA27, 141, 207, 194, 32, 38, 193, 32 FO 

•189 DATA121,193,96,125,0,0,8,27 CH 

•190 DATAO, 13, 32, 201, 147, 28, 29, 29 PB 

•191 DATA29,29,29,29,29,29,29,29 NO 

•192 DATA29,29,29,29,I7, 17, 17,17 KC 

•193 DATA17,17,17,17,68,82,65,71 EF 

•194 DATA79,78,32,84,89,80,69,13 PK 

•195 DATA13,29,29,29,29,29,29,29 FH 

•196 DATA29,29, 29, 29,29, 29,66,89 PH 

•197 DATA32,66,79,66,32,83,80,73 JD 

•198 DATA82, 75, 79, 31, 13,13,0,1 AC 

■199 DATAIO.0,0 JF 



PROGRAM 2 



10 REM PROGRAM 2 NH 

20 PRINT" [DOWN] RUN" PC 

30 N-99:DIMW$(N):SC=53280 DJ 

100 FORJ=832T01022:READB:P0KEJ,B:NEXT KH 
130 POKE2040 ,13: POKE204 1 , 1 4 : POK E2042 ,15 ND 
150 P0KE792,193:SYS49659 CK 

155 F0RI=0TON:READW$(I):NEXT CN 

160 PRINT" [HOME] [15"[D0WN]"][BLACK]"TAB( 
10) "CHOOSE TYPING SPEED [DOWN]" J J 

170 PRINTTAB(I5)"[BLUE]1. FAST [ DOWN]" :PR 
INTTAB(15)"2. MEDIUM[D0WN]":PRINTTAB(15) 
"3. SLOW" IX 

190 GETA$:IFA$=""THEN190 HJ 

200 A=VAL(A$):IFA<10RA>3THEN190 DP 

210 POKE49943,A:POKE49944,A*30 KB 

500 PRINT" [ CLEAR ] [ 4" [ DOWN ] " ] [ BLUE ] " : POKE 
SC,5:P0KESC+1,15 DH 

510 F0RJ=1T09:A$="[4" "]":F0RI=0T06:R=IN 
T(RND(0)*N) EL 

520 A$=A$+" "+W$(R):NEXT DN 

530 PRINTLEFT$ ( A$, 35): PRINT: NEXT :P0KE1 98 
,0:T0=TI:SYS49152 NP 

540 T=(TI-T0)/3600: E=PEEK( 49945) : POK ESC, 
5:P0KESC+I,13:S=INT(47/T+.5) NI 

545 IFPEEK( 49946 )THENS=0:E=0 CH 

550 SR=S*90-20*E:IFSR>HSTHENHS=SR NI 

560 S$=RIGHT$(STR$(S) , 2) : E$=R1GHT$(STR${ 
E),2) CG 

565 SR$=RIGHT$(STR$(SR),4):HS$=RIGHT$(ST 
R$(HS),4) KE 

570 PRINT"[CLEAR][BLUE][12"[D0WN]"]"TAB( 
11)"SPEED [10"."]"S$ LJ 

580 PRINTTAB( 1 1)" [DOWN] ERRORS [ 10". "]"E$ AD 
590 PRINTTAB(11)"[D0WN]SC0RE[9"."]"SR$ BM 
600 PRINTTAB(11)"[D0WN]HIGH SC0RE[4"."]" 
HS$ MP 

610 PRINTrAB(8)"[4"[ DOWN]"] [RED] [9"[c P] 
T, ]"SPC(7)"[8"[c P]"]" NL 

620 PRINTTAB(8)"[RVS0N] SPACE "SPC(7)" 

RETURN " 
630 PRINTrAB(8) " [ DOWN ] [ BLACK ]CONTINUE"SP 
C(10)"END" 
700 P0KE198,0 
710 GETA$:IFA$=""THEN710 

720 IFA$<>CHR$(13)ANDA$OCHR$(32)THEN710 Gl 
725 P0KE53269,0 
730 IFA$=CHR$(32)THEN500 
740 P0KE792,71:END 

1000 DAT AO, 127 , 128, 1 , 249, 192 , 3 , 248 

1001 DATA224,3 f 255,231,3,255,253,35 

1002 DATA255,255,33,255, 192,64,243, 254 

1003 DATA64,112,0,32,120,0,33,252 

1004 DATAO, 71, 252, 0,79, 254, 0,1 11 

1005 DATA246, 0,1 11, 243, 128,63,224,64 

1006 DATA31 , 192 , , 7 , 224 , , 30 , 96 

1007 DATAO, 48, 48, 0,60, 30, 0,21 



•1008 DATA 1,255, 0,3, 243, 128,7,241 PM 
•1009 DATA1 92, 7, 255, 206, 7, 255, 250, 7 FB 
•1010 DATA255,254,99,255,128,17,243,252 IB 
■1011 DATA16, 112, 0,32, 120,0,65, 248 FD 
■1012 DATAO, 135, 248, 0,143, 252, 0,79 MB 
•1013 DATA252, 0,1 11, 246, 0,63, 226,0 EO 
•1014 DATA31, 194,0,7,192,0,3, 128 PJ 
•1015 DATA0,7,O,0,15,224,O,21 PG 

•1016 DATAO, 127, 0,1, 249, 199,3,248 HM 
•1017 DATA253,3,255,255,3,255,240,3 MM 
•1018 DATA255.224, 17,255, 192, 16,247, 128 PA 
•1019 DATA32, 115, 128,32,113,128,65,248 CO 
•1020 DATA192, 71, 248,96,79, 252,0, 111 KL 
•1021 DATA246,0,111,243,128,63,224,64 HI 
•1022 DATA31,192,0,7,224,0,30,96 GL 
•1023 DATAO ,48, 048, 0,60, 30,0 NH 

• 2000 DATA KNIGHT .MAIDEN , KING , QUEEN , PRINCE 

, SWORD, ZEBRA, VISE, PEAS ANT, KNAVE LA 
■2005 DATA LANCE, BUCKET, QUILT, FLAGON, WIZAR 

D, BIRD, HUT, BRIDGE.PIKE, MAN AJ 

•2010 DATAHEX, GUILD, RIVER, CHEST, GOLD, SILV 

ER , COIN , CASTLE , TUNIC , SPEAR OP 

•2015 DATAPATH, MAIL, JOKER, HELMET, FLASK, BE 

AST, ANIMAL, MAZE, BAY, LORD OC 

•2020 DATATORCH, TABLE, CHAIR, STABLE, HORSE, 

BI SHOP , JESTER , CROWN , GAME , BOOK BG 

• 2025 DATA YEOMAN , XEBEC , GORGE , PIT , SHIELD , A 
RMOUR, THIEF, YAM, COOK, SHOE FD 

•2030 DATALI VER, MALLET, CART, TAX, RA VINE, QU 
AIL, BOW, ARROW, HEN, FIRE I A 

•2035 DATABABY, WINE, JEWEL, DUNGEON, KNIFE, S 
ERF, CROSS, DAMSEL, QUI VER, HAZE CP 

•2040 DATAVIPER, LION, DOG, CANDLE, WOLF, SHIP 
, LOG, GRATE, NUT, CANNON DN 

• 2045 DATAQUARRY , IBEX , KEY , KID , BAZAAR , CLOA 

K , GEM , LANTERN , STAG , SCARF NH 



AUTO-GIN 

FROM PAGE 59 



KO 


•1000 PRINTSPC(15) 




•1010 PRINTSPC(13) 


EH 


•1020 PRINTSPC(13) 


KB 


•1030 REM CREATES 


JP 


MENTS CONTAINING 


GL 


•1040 : 


PL 


•1050 FL=0 


GD 


TION TO BE SAVED 


KD 


•1060 LL=0 


HB 


ION TO BE SAVED 


NC 


•1070 LN^IOOO 


ML 


NE NUMBER 


MM 


•1080 LB=0 


PB 


T NUMBER 


HI 


•1090 HB=0 


GL 


IT NUMBER 


IB 


•1100 HH-0 



"AUTO-GEN" EN 

"SEP[3" "jl, 1984" NE 
"DAVID A JONES" JF 
DISK FILE OF DATA STATE 
IMAGE OF MEMORY BM 

DI 
REM FIRST MEMORY LOCA 

GG 
REM LAST MEMORY LOCAT 

BC 
REM OUTPUT PROGRAM LI 

MB 
REM LOW BYTE OF 16 BI 

BH 
REM HIGH BYTE OF 16 B 

BO 
REM TEMP STORE FOR HE 
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XIDECIAML CONVERSION PD 

1110 MM=0 : REM DECIMAL VALUE OF 
NUMBER CONVERTED FROM STRING MA 

1120 ND=10 : REM NUMBER OF DATA IT 
EMS PER LINE HC 

1130 NL-2049 : REM POINTER TO START 
OF NEXT BASIC LINE NG 

1140 X=0 : REM OUTER LOOP COUNTE 
R EE 

1150 Y=0 : REM INNER LOOP COUNTE 
R JE 

1160 Z=0 : REM DATA ITEM COUNTER MB 
1170 C$="," : REM COMMA LH 

1180 D$=CHR$(131): REM BASIC TOKEN FOR " 
DATA" MG 

1190 S$«" " : REM SPACE ML 

1200 FI$ S "" : REM OUTPUT FILE NAME KI 
1210 NN$="" : REM NUMBER STRING ISP 
UT MP 

1220 X$="" : REM 4 CHARACTER STRIN 
G REPRESENTING 1 MEMORY LOCATION AO 
1230 : DI 

1240 : REM MAIN PROGRAM AK 

1250 : DI 

1260 PRINT :INPUT"FIRST MEMORY LOCATION"; 
NN$ CH 

1270 MM=VAL(NN$) CC 

1280 IF LEFT$(NN$,l)-"$" THEN GOSUB 1830 AI 
1290 FL=MM NM 

1300 PRINT :INPUT"LAST MEMORY LOCATION" jN 
N$ IN 

1310 MM=VAL(NN$) CC 

1320 IF LEFT$(NN$,1)="$" THEN GOSUB 1830 AI 
1330 LL=MM 00 

1340 PRINT: INPUT"STARTING LINE NUMBER" ;L 
N AH 

1350 PRINT: INPUT U NUMBER OF DATA ITEMS PE 
R LINE";ND EN 

1360 PRINT :INPUT"OUTPUT FILENAME";FI$ CM 
1370 : DI 

1380 OPEN 15,8,15 AM 

1390 OPEN 8,8,8, "0:"+FI$+",P,W" NJ 
1400 GOSUB 1920 GF 

1410 : DI 

1420 PRINT#8,CHR$(1);CHR$(8);: REM PROGR 
AM LOAD LOCATION AD 



REM MAIN LOOP 



1430 

1440 

1450 

1460 FOR X=FL TO LL STEP ND 

1470 NL=NL+2+2+l+4*ND+l 



DI 
BI 
DI 
KL 
JA 



1480 LB=NL-256*(INT(NL/256)): HB-INT(NL/ 
256) KL 

•1490 PRINT#8,CHR$(LB);CHR$(iIB);: REM NEX 
T BASIC LINE KG 
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1500 LB=LN-256*(INT(LN/256)): HB=INT(LN/ 
256) OP 

1510 PRINT(t8,CHR$CLB);CHR$(HB)j: REM NEX 
T LINE NUMBER DE 

1520 PRINT LN;: REM SHOW USER WHAT'S HAP 
PENING FL 

1530 PRINT#8,D$;: REM DATA TOKEN BL 
1540 : DI 

1550 FOR Y=X TO X+ND-1: REM TO 9 = 10 
ITEMS MB 

1560 X$=RIGHT$("[4" "]"+STR$(PEEK(Y)),3) NM 
1570 : DI 

1580 FOR 1=1 TO 3 IM 

1590 PRINT#8,CHR$(ASC(MID$(X$,I,1))); OE 
1600 NEXT I MN 

1610 : DI 

1620 Z=Z+1 EB 

1630 IF Z<ND THEN PRINT#8,C$; I A 

1640 NEXT Y NN 

1650 i DI 

1660 PRINT#8,CHR$(0);: REM END OF LINE T 
ERMINATOR AP 

1670 LN=LN+10 OK 

1680 Z=0 EH 

1690 GOSUB 1920 GF 

1700 NEXT X NK 

1710 : DI 

1720 : REM ADD END OF PROGRAM TERMIN 



ATOR 

1730 : 

1740 PRINT#8,CHR$(0) ;CHR$(0) ; 

1750 CLOSE 8 

1760 GOSUB 1920 

1770 CLOSE 15 

1780 PRINT: PRINT"COMPLETE" 

1790 END 

1800 : 

1810 : REM HEX TO DECIMAL 

1820 : 

1830 MM=0: HH=0 

1840 FOR X=2 TO LEN(NN$) 

1850 HH=ASC(MlD$(NN$,(X),l))-48 

1860 MM=16*MM+HH+7*(HH>9) 

1870 NEXT 

1880 RETURN 

1890 

1900 : REM DISK I/O ERROR 

1910 



JM 
DI 
DK 
NI 
GF 
AB 
BJ 
IC 
DI 
EM 
DI 
DM 
CI 
IP 
JO 
IA 
IM 
DI 
DG 
DI 

1920 INPUTf/15,EN$,EM$,ET$ I ES$: EN=VAL(EN 
$) IM 

1930 IF EN-0 THEN 1970 10 

1940 PRINT"DISK I/O ERROR "; OM 

1950 PRINT EN$,EM$,ET$,ES$ PG 

1960 CLOSE 8: CLOSE 15: STOP NN 

1970 RETURN IM 



MOXEY'S PORCH 

FROM PACE 73 

•10 P0KE52,48:POKE56,48:CLR HJ 

•20 REM * MOXEYS PORCH * BY BOB BLACKMER NK 

•30 DIMMV(136):HS«0:A=2:B=39:C=41:MP$="M0 
XEYS PORCH" :PS=53270 PO 

•40 V=53248:S=54272:M=5632O:P0KEV+21,65:P 

0KE53280,6:P0KE53281,11:U=1401 MN 
•50 F0RL=ST0S+24:P0KEL,0:NEXTL HA 

• 60 POKES+5 , 21 : POKES* 1 , 20 : P0KES+6 , 240 : POK 

ES+4,17:G0SUB1110 AJ 

•70 PRINT" [CLEAR ][ HOME] [DOWN][ DOWN ]{RVSON 
3 [YELLOW] DO YOU WANT INSTRUCTIONS? (Y/N) 

DH 
•80 GETI$:IFI$=""THEN80 HD 

•90 IFI$="N"THEN300 IH 

•100 IFI$<>"Y"THEN80 AD 

•110 PRINT"[CLEAR][HOME]"TAB(ll)"[c 6]"MP 

$"[ DOWN] [DOWN]" KN 

•120 PRINT" [ DOWN] [CYAN ]ENZ0[ 7" "]JUST GOT 

A POGO STICK AND" GH 

•130 PRINTTAB(11)"JUMPED OVER TO HIS NEIG 

HBORS" KP 

•140 PRINTTABC 11) "MULTI-STEP FRONT PORCH. 

[3"[D0WN]"]" AI 

•150 PRINT" [ YELLOW ]MOXIE[ 6" "] DOESN'T LIK 

E THE MARKS" KA 

•160 PRINTTABC 11 )"ENZ0'S POGO STICK IS MA 

KING" JL 

•170 PRINTTABC 11 )"0N HIS PORCH. [3" [DOWN]" 

]" FN 

•180 PRINTTAB(3)"[c 8]T0 PLAY USE JOYSTIC 

K #2 AND MARK UP [5" "]ALL THE STEPS ON"; IE 
•190 PRINT" MOXIE'S PORCH," :PRINTTAB(3)"W 

HILE TRYING TO AVOID MOXIE'S PURSUIT" CG 
•200 PRINTTABC 3) "[UP] IF SUCCESSFUL YOU AR 

E REWARDED WITH" BM 

•210 PRINTrABC 3) "ANOTHER PORCH AND A FAST 

ER MOXIE. [DOWN] [DOWN]" KJ 

•220 P0KEV+23,65:POKEV+29,65:POKE2O40,P:P 

0KE2046,Q:P0KEV+37,6:P0KEV+38,5 CL 
•230 POKEV,60:P0KEV+l,70 BG 

•240 P0KEV+12,60:P0KEV + 13,110 FP 

■250 PRINTTABC 10)" [RVSON][c 6]HIT ANY KEY 

TO BEGIN": F0RK=1T099:NEXTK ND 

•260 GETS$:IFS$=""THEN280 HF 

•270 IFS$O""THEN290 OP 

•280 PRINTTABC 10) "[ UP ]HIT ANY KEY TO BEGI 

N[UP ] " : F0RK=1T099 : NEXTK : GOTO250 EG 
•290 P0KEV+23,0:P0KEV+29,0 CH 

•300 SL=0 IA 

•310 PRINT" [ CLEAR ][ HOME ][ 3" [ DOWN ]"]"TABC 7 

) "LEVEL Cl-9)" GH 

•320 PRINT"[D0WN]"TABC7)"1 IS THE HARDEST 

" EK 

■330 GETLV$:IFLV$=""THEN330 DO 

•340 IFLV$<"1"0RLV$>"9"THEN330 FD 



•350 LV=VALCLV$)+1 CI 

•360 PRINT"[CLEAR]":P0KE53272,(PEEKC53272 

)AND240)+14 HB 

• 370 POKE53282 , 2 : P0KE53283 , 7 : P0KE53270 , PE 
EKC53270)OR16 HM 

380 X2=203:Y2=166:X1=157:Y1=102:U=1401 JD 
390 IFLV-1<1THENLV=2 CP 

400 LV=LV-1 MF 

410 PRINT"[H0ME]"TABC12)"[3"[D0WN]"][CYA 
N]"MP$ AA 

420 GOTO450 CN 

430 JV=PEEK(M):FR=JVAND16 ON 

440 JV=15-QVAND15):RETURN CG 

450 PRINT"[H0ME][7"[DQWN]"][c 6]" AH 
460 PRINTTABC17)"#$" GM 

470 PRINTTABC 16) "#%&$" KL 

480 PRINTTABC 15) "#%&%&$" CO 

490 PRINTTABC 14 )"#%&%&%&$" DJ 

500 PRINTTABC 13) "#%&%&%&%&$" HI 

510 PRINTTABC 12 )"#%&%&%&%&%&$" BH 
520 PRINTTABC 1 !)"#%&%&%&%&%&%&$" FC 
530 PRINTTABC 10) "#%£%&%&%&%&%&%&$" GN 
540 PRINTTABC 9) "#%&%&%&%&%&%&%&%&$" HK 
550 PRINTTABC 8 )"#%&%&%&%&%&%&%&%&%&$" HJ 
560 PRINTTABC8) " * ('('(' ('('('('( '('("r PO 
KES+24,15 BM 

570 F0RL=1T0136 STEP2 MJ 

580 POKES+4,17:P0KES+l,55:P0KES+4,16 LJ 
590 X2=X2+MVCL):Y2=Y2+MV(L+1) NB 

600 F0RG=LVT01STEP-1 HE 

610 K=1:G0SUB430 JF 

620 POKE2040,P:IFKOLVTHENK=K+1:GOT0620 BI 
630 P0KE2046.Q ON 

640 REM ***N0TE*** LINES 650-660 MUST BE 

ENTERED USING ABBREVIATIONS NG 

•650 P0KEV,X1:P0KEV+1,Y1:IFPEEKCU)=37THEN 
P0KEU,C:P0KEU+1,C+1:SC S SC+1:P0KES+4,129: 
POKES+4,128 OM 

■660 POKEV , XI ; POKEV+1 , Yl : IFPEEKCU>39THEN 
POKEU,43:POKEU+l,44:SC=SC+l:POKES+4,129: 
POKES+4,128 HG 

•670 POKEV+12,X2:P0KEV+13,Y2 KG 

•680 P=P+1:IFP>15THENP=13 IL 

•690 Q=Q+1:IFQ>199THENQ=198 OP 

•700 IFP=14THENP0KES+4, 129: POKES+4,128 JD 
•710 IFJV=4THENX1=X1-16:U=U-A:IFPEEK(U)=3 
2THENU=U+A;X1=X1+16 PO 

•720 IFJV=8THENX1=X1+16:U=U+A:IFPEEKCU)=3 
20RPEEKCU)=36THENU=U-A:X1=X1-16 BP 
•730 IFJV=5THENX1=X1-8:Y1=Y1~8:U=U-C:IFPE 
EKCU)=32THENU=U+C:Xl=Xl+8:Yl=Yl+8 EN 
•740 IFJV=6THENX1=X1-8:Y1=Y1+8:U=U+B:IFPE 
EKCU)=32THENU=U-B:Xl=Xl+8:Yl=Yl-8 JO 
•750 REM ***NOTE*** LINES 760-770 MUST BE 

ENTERED USING ABBREVIATIONS DO 

•760 IFJV=9THENX1=X1+8:Y1=Y1-8:U=U-B:IFPE 
EK(U)=320RPEEKCU)=36THENU=U+B:X1=X1-8:Y1 
=Yl+8 PM 
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■770 IFJV-10THENX1«X1+8:Y1«Y1+8:U-U+C:IFP 
EEK(U)=400RPEEK(U)=32THENU=U-C:X1=X1-8:Y 
l=Yl-8 OC 

■780 IFSC=55THEN970 JM 

•790 IFY1-Y2ANDX1-2-X2THEN810 AN 

■800 NEXTG: NEXTL :GOTO570 CA 

•810 POKEV+23, 64: P0KEV+29,64:P0KES+4, 17 :P 
OKES+6 , 240 : X2=180 : Y2=166 : POKE2046 , 199 MJ 
■820 F0RL=1T099STEP2 KJ 

■830 X2=X2+MV(L):Y2-Y2+MV(L+1) N'B 

■840 P0KEV+12,X2:P0KEV+13,Y2 KG 

■850 POKES+l.L+20 EL 

•860 FORK=1T040:NEXTK MC 

•870 NEXTL MO 

■880 POKES+24,0: POKEV+23, 0:P0KEV+29,0:PRI 
NT"[CLEAR]":P0KEPS+2,21:P0KEPS,PEEK(PS)A 
ND239 BD 

■890 SL-SL+SC*10:SG-0:PRINTSPC(12)"[YELL0 
W][RVSON]"MP$:PRINTTAB(ll)"[DOWN]{c 6]Y0 
UR SCORE: [ YELLOW]" ;SL JI 

■900 IFSL>HSTHENHS=SL BI 

■910 PRINrrAB(ll)"[DOWN][c 8] HIGH SCORE:" 
;HS JM 

■ 920 PRINT" [ YELLOW ] [ RVSON ] [ DOWN ] [ DOWN ] [ RI 
GHT][ RIGHT ] WOULD YOU LIKE TO PLAY AGAIN? 

(Y/N)" GD 

930 GETF$:IFF$=""THEN930 JF 

940 IFF$="N"THENPOKEV+21,0:P0KES+24,0:PR 
INT" [CLEAR]": END FC 

950 IFF$<>"Y"THEN930 CC 

960 G0T0300 BP 

970 POKEV+23 , 1 : P0KEV+29 , 1 : P0KES+4 , 17 : POK 
ES+6, 240 : X 1=1 70 :Y 1=166 01 

980 F0RL=1T099STEP2 KJ 

990 X1=X1+MV(L):Y1=Y1+MV(L+1) HF 

1000 P0KEV,X1:P0KEV+1,Y1 GE 

1010 POKES+l.L+20 EL 

1020 F0RK=1T040:NEXTK MC 

1030 NEXTL MO 

1040 SL=SL+SC*10 FM 

1050 POKES+24 , : POKEV+23 ,0 : POKEV+29 , : PR 
INT"[CLEAR]":POKEPS+2 f 2i:POKEPS,PEEK(PS) 
AND239 BD 

1060 PRINTTABC 12) "[ DOWN ][ DOWN ][ CYAN ^[RVS 
ON ]"MP$:PRINTTAB( 13) "[ DOWN ][ YELLOW ] SCORE 
:";SL:SC-0 BE 

1070 IPLV-1<1THENLV=2 CP 

1080 PRINTTAB( 10) "[ YELLOW] [ DOWN ][ DOWN ]Y0 
U HAVE REACHED":PRINTTAB(14)"[D0WN]LEVEL 
:[c 6]";LV-1 CG 

1090 F0RK=1TQ1500:NEXTK AP 

1100 POKEPS,PEEK(PS)OR16:POKEPS+2,(PEEK( 
PS+2)AND240)+14:GOTO360 LH 

1110 PRINT" [CLEAR] [HOME] [5" [DOWN]"] [YELL 
OW]I'M WORKING [4"."] PLEASE BE PATIENT" MO 
1120 P0KE56334, PEEK( 56334) AND254:P0KEl f P 
EEK(1)AND251 BE 

1130 FORI-OT057 MF 
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1140 F0RJ-0T07 IC 

1150 P0KE14336+I*8+J,PEEK(V+I*8+J) PM 
1160 NEXTJ.-NEXTI NB 

1170 P0KE1, PEEK (l)OR4:P0KE56334, PEEK (563 
34)0R1 IE 

1180 CK=0:PORCH=35T045 PB 

1190 F0RBY=0T07 NE 

1200 READ NU:CK=CK+NU IC 

1210 P0KE14336+{8*CH)+BY,NU JH 

1220 NEXT BY: NEXT CH GL 

1230 IECK<>10450THENPRINT"ERROR IN DATA- 
LINES 1300-1400": END DP 
1 240 CK=0 : F0RS1=832T0894 : READQ1 : CK=CK+Q1 
:P0KES1,Q1:NEXT NF 
1250 FQRS2=896T0958 : READQ2 : CK=CK+Q2 : POKE 
S2,Q2:NEXT HB 
1260 PORS3-960T01022 : READQ3 : CK=CK+Q3 : POK 
ES3,Q3:NEXT JN 
1270 FORS4=12672T012734:READQ4:CK=CK+Q4: 
P0KES4,Q4:NEXT LJ 
1280 FORS5»12736T012798:READQ5:CK«CK+Q5: 
P0KES5, Q5: NEXT :P»1 3: 0=198 OP 
1290 IFCKO8699THENPRINT"ERR0R IN DATA-L 
INES 1410-1800": END MK 
1300 CK=0;F0RW=1T0136STEP2:READQ6,Q7:MV( 
W)=Q6:MV(W+1)=Q7:CK=CK+Q6+Q7:NEXTW DA 
1310 IFCK<>OTHENPRINT"ERROR IN DATA LINE 
S 1810-1870": END OG 
1320 P0KEV+28 , 65 • P0KEV+37 , 6: P0KEV+38 , 5 : P 
0KEV+45,0:P0KEV+39, 15: RETURN PE 
1330 DATAO ,0,0,0,2,10,42,170 CJ 
1340 DATAO,O,O,O,128,16O,168,170 HH 
1350 DATA106,90,86,85,85,149,165,169 KO 
1360 DATA171, 175, 191, 255 ,255, 254, 250, 234 PI 
1370 DATA106,90 t 86,85,85,21,5,l KL 
1380 DATA171, 175, 191, 255, 255, 252, 240, 192 DA 
1390 DATA104,90,86,85,85, 149,165, 169 PE 
1400 DATA43, 175,191,255,255,254,250, 234 HM 
1410 DATA104,90,86,85,85,21,5,1 FB 
1420 DATA43, 175, 191,255,255,252,240,192 AO 
1430 DAT AO, 0,0,0, 0,0, 0,0 FG 
1440 DATA 0,0,0,0,0,0,0,0 FG 
1450 DATA 0,0,0,0,0,112,0,0 JP 
1460 DATA 136,0,1,4,0,0,112,0 ND 
1470 DATA 1,84,0,4,81,0,4,169 EA 
1480 DATA 0,1,36,0,0,32,0,1 KP 
1490 DATA 36,0,1,36,0,1,36,0 NN 
1500 DATA 1,36,0,1,36,0,0,168 HF 
1510 DATA 0,0,32,0,0,32,0 EK 
1520 DATA 0,0,0,0,0,0,0,0 FG 
1530 DATA 0,0,0,0,0,0,0,0 FG 
1540 DATA 0,0,0,112,0,0,136,0 GI 
1550 DATA 1,4,0,0,112,0,1,84 PO 
1560 DATA 0,4,81,0,4,169,0,1 NK 
1570 DATA 36, 0/J, 32, 0,1, 36,0 NC 
1580 DATA 1,36,0,1,36,0,1,36 CK 
1590 DATA 0,1,36,0,0,168,0 IA 
1600 DATA 0,0,0,0,0,0,0,112 JP 
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•1610 DATA 0,0,136,0,1,4,0,0 OK 

•1620 DATA 112,0,1,84,0,4,81,0 GC 

•1630 DATA 4,169,0,1,36,0,0,32 FF 

•1640 DATA 0,1,36,0,1,36,0,1 JG 

•1650 DATA 36,0,1,36,0,1,36,0 NN 

•1660 DATA 0,168,0,0,32,0,0,32 AH 

•1670 DATA 0,0,0,0,0,0,0 PD 

•1680 DATAO, 0,0,0, 0,0, 0,0 FG 

•1690 DATAO, 0,0, 0,0, 0,0,0 FG 

•1700 DATAO, 0,0, 0,0 ,0,0,0 FG 

•1710 DATAO, 0,0, 0,42, 0,0, 170 LO 

•1720 DATA1 28, 2, 235, 160, 2, 170, 160, 2 PG 
•1730 DATA255, 224,2, 170, 160,0, 170, 128 HC 
•1740 DATA0,42,0,0,34,0,2,162 BC 

•1750 DATA160,0,0,0,0,0,0 GB 

•1760 DATAO, 0,0, 0,0, 0,0,0 FG 

•1770 DATAO, 0,0,0, 0,0, 0,0 FG 

•1780 DATAO, 0,0, 0,0,0, 0,0 FG 

•1790 DATAO, 0,0, 0,0, 0,0,0 FG 

•1800 DATAO.0,42,0,0,170,128,2 AC 

•1810 DATA235, 160,2, 170, 160,2,255,224 JA 
•1820 DATA2, 191, 160, 0,1 70, 128, 0,42 CK 
•1830 DATAO.0,34,0,2,162,160 LJ 

•1840 DATA-16, 0,-16, 0,-16, 0,-16, 0,-16, 0,8 

,—8,8,— 8,8,— 8,8,— 8,— 8,— 8 GK 

•1850 DATA-8,-8,8,-8,8,-8,8,8,8,8,8,8,8,8 

,-8,8,-8,8,-16,0 JO 

•1860 DATA-16, 0,-16, 0,-8, 8, 16, 0,16, 0,-8,- 

8 ,-8,— 8, 8,— 8,8, -8, 8,— 8 IL 

•1870 DATA8, 8, 8, 8, 8, 8, 8, 8, -8,8,-8, 8, -8,8, 

16,0,16,0,16,0 PD 

•1880 DATA16, 0,-8, -8,-8, -8,-16, 0,8,8, -8, 8 

,-16,0,-16,0 PO 

•1890 DATA-16, 0,8, -8, 8, -8, -8, -8, 8, -8, -16, 

0,-16,0,-16,0,-8,8 GF 

•1900 DATA-8,8,-8,8,-8,8, 16,0, 16,0,16,0,1 

6,0,8,-8,16,0,16,0,16,0 IJ 

FILE LOCK 

FROM PAGE 62 



•5 REM FILE LOCK V0222/85 

•10 GOTO 10000 

•50 POKE 198,0 

•52 GET A$:IF A$= M " THEN GOTO 52 

•55 RETURN 

•70 REM WAIT FOR RETURN 

•80 POKE 198,0: POKE 204,0 



KI 
IE 
KB 
NH 
IM 
JL 
HG 



•85 GET A$:P0KE 207,0: IF A$<>CHR$(13) THE 
N GOTO 85 DB 

•90 POKE 204,1: PRINT " "CHR$(157) ; : RETURN KP 
•100 REM WAIT FOR KEY J J 

•105 POKE 198,0:P0KE 204,0 HG 

•110 GET A$:P0KE 207,0: IF A$="" THEN GOTO 
110 CM 



•115 POKE 204,1: PRINT " "CHR$(157) ; :RETUR 
N KP 

150 REM BOX ROUTINE J J 

152 GOSUB 190 CO 

155 PRINT CHR$(117);:FQR 1=0 TO W-2:PRIN 
T CHR$(99);:NEXT I: PRINT CHR$(105); MC 
158 FOR J=0 TO H-2:RW=RW+1: GOSUB 190 LI 

160 PRINT CHR$(103);:FOR 1=0 TO W-2:PRIN 

T " ";:NEXT I:PRINT CHR$(104); FG 

161 NEXT J MM 

162 RW=RW+1: GOSUB 190 EF 
165 PRINT CHR$(106);:F0R 1=0 TO W-2-.PRIN 

T CHR$(99);:NEXT I: PRINT CHR$(107); PE 
170 PRINT BL$;: RETURN EF 

190 REM SET CURSOR LOCATION OH 

195 POKE 214, RW: POKE 211,CL:SYS 58640: RE 
TURN AF 

200 REM READ DIRECTORY HI 

210 OPEN 15,8,15,"I0:":0PEN 2,8,2,"# ,, EI 
220 TK=18:SC=1:NF=0 DO 

230 PRINT#15,"U1";2;0;TK;SC LN 

240 GET#2,A$:A$ S A$+CHR$(0):T=ASC(A$) NL 
250 GET#2,A$:A$=A$+CHR$(0):S=ASC(A$) AG 
260 FOR F-0 TO 7: REM 8 ENTRIES/SEC LM 
270 PRINT#15,"B-P";2;F*32+2 NK 

275 GET#2,A$:IF A$= ,,M THEN A$=CHR$(0) LB 
280 A=ASC(A$):IF ASC(A$)=0 THEN GOTO 325 BK 
285 L$=">":IF (A AND 64) =0 THEN L$="[SS 
}" OA 

290 GET#2,A$:GET#2,A$ GE 

300 F$ S L$+"" ID 

305 FOR 1=0 TO 15:GET#2, A$:IF A$=' m THE 
N A$=CHR$(0) CD 

310 IF ASC(A$)=160 THEN GOTO 320 ' BM 
315 F$=F$+A$ 10 

320 NEXT I MN 

322 FL$(NF)=F$:S(NF)=SC:EN(NF)=F:NF=NF+1 IP 
325 NEXT F MI 

330 IF TOO THEN TK=T:SC=S:G0T0 230 CJ 
335 CL0SE2:CL0SE15 BI 

340 NF=NF-1: RETURN I A 

400 REM PRINT FORMATTED SCREEN KA 
405 PRINT CHR$(147);:PRINT HD$:PRINT KD 
410 RW=2:CL=0:H=20;W=19:G0SUB 150: BM 
415 RW=2:CL=20:H=20:W=19:G0SUB 150 GC 
450 REM FILL SCREEN WITH FILES EC 
455 RW=3:CL=1: GOSUB 190:ZN=0 GE 

460 FOR J=0 TO 18:I=PG*38+ZN#19+J CM 

462 IF SF(I)=0 THEN PRINT FL$(I);:G0T0 4 
64 OG 

463 IF SF(I)=1 THEN PRINT RV$FL$(I)R0$; FM 

464 RW=RW+1:G0SUB 190:NEXT J HF 

465 RW=3:CL=21: GOSUB I90:ZN=1 MD 
470 FOR J=0 TO 18:I=PG*38+ZN*19+J CM 
472 IF SF(I)=0 THEN PRINT FL$(I);:G0T0 4 

74 PD 
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473 IF SF(I)=1 THEN PRINT RV$FL$(I)RO$; FM 

474 RW=RW+1: GOSUB 190: NEXT J HF 

475 ZN=rj: RETURN EO 
500 REM SCRATCH KM 
510 NC$="SCRATCH FILES " KJ 
515 GOSUB 800 CI 

519 OPEN 15,8,15 AM 

520 FOR 1=0 TO NF:IF SF(I)=0 THEN GOTO 5 
40 JB 
525 F$=FL$(I):IF LEFT$(F$, 1)=">" THEN GO 
TO 540 KP 
530 F$=RIGHT$(F$,LEN(F$)-1) BL 
535 PRINTS 15, "SO: "F$: GOSUB 900 NM 
540 NEXT I MN 
550 CLOSE 15 AB 

599 RETURN IM 

600 REM LOCK MA 
610 NC$="[3" "]LOCK FILES " EB 
615 GOSUB 800 CI 

619 OPEN 15,8,15:0PEN 2,8,2,'T' EI 

620 FOR 1=0 TO NF:IF SF(I)=0 THEN GOTO 6 
60 JI 
630 GOSUB 690 CP 
635 GET#2,A$:IF A$=' m THEN A$=CHR$(0) LB 
640 FT=ASC(A$):FT=(FT OR 64) GK 
650 GOSUB 680 CO 
655 GOSUB 900 DB 
660 NEXT I MN 
670 CLOSE 2:CLOSE15:RETURN ON 
680 GOSUB 695:PRINT#2,CHR$(FT); DO 

684 PRINT#15,"B-P";2;0 AF 

685 PRINT#15,"U2";2;0;18;S(I):RETURN IJ 
690 PRINT#15,"U1";2;0;18;S(I) LP 
695 PRINT#15,"B-P" ; 2; EN(I)*32+2: RETURN NM 

699 RETURN IM 

700 REM UNLOCK GE 
705 RW=1:CL=12: GOSUB 190 PA 

PROGRAMMERS! 

Ahoy! wishes to continue publishing the best 
Commodore-compatible programs available in 
magazines today. We're looking for games, utili- 
ties, educational, music, and graphics programs, 
and programs that completely defy description. If 
you have an original C-64, C-128, or VIC 20 pro- 
gram, in BASIC or machine language, we'd like 
to see it. Payment will be made upon acceptance, 
at competitive industry rates. You will also receive 
royalties based on the sale of our program disks. 

Send a copy of your program on disk or tape, 
accompanied by a printout and documentation, to 
Ahoy!, 45 West 34th Street- Suite 407, New 
York, NY 10001. Include a self-addressed mailer 
with sufficient return postage affixed. (Program 
printouts not accompanied by a disk or tape will 
be returned unread; programs not accompanied 
by sufficient return postage will not be returned. 



•710 NCS=" UNLOCK FILES " KA 

•715 GOSUB 800 CI 

719 OPEN 15,8,15:0PEN 2,8, 2, "F EI 

720 FOR 1=0 TO NF:IF SF(I)=0 THEN GOTO 6 
60 JI 
730 GOSUB 690 CP 
735 GET#2,A$:IF A$-"" THEN A$=CHR$(0) LB 
740 FT=ASC(A$):FT=(FT AND 191) JA 
750 GOSUB 680: GOSUB 900 KD 
760 NEXT I MN 
770 CLOSE 2:CL0SE15;RETURN ON 
800 REM SELECT FILES LL 

805 RW=1:CL=12:G0SUB 190: PRINT YL$NC$; HI 

806 RW=24:CL=0: GOSUB 190: PRINT CD$; KM 

807 RW=3:CL=18: GOSUB 190:PRINT AR$;:J=0 CE 

810 GOSUB 50 PP 

811 IF A$=CM$ THEN RETURN IL 

812 IF A$=CHR$(13) THEN GOSUB 820: GOTO 
810 EF 

813 IF A$-AR$ THEN GOTO 10000: REM EXIT A 
ND START OVER KN 

814 IF A$=CHR$(19) THEN GOSUB 190: PRINT 

" ";: GOSUB 1000: GOTO 805 MO 

815 IF A$=CHR$(157) THEN GOSUB 890: GOTO 
810 GF 

816 IF A$=CHR$(17) THEN GOSUB 840: GOTO 
810 DL 

817 IF A$=CHR$(145) THEN GOSUB 860 -.GOTO 
810 GF 

818 IF A$=CHR$(29) THEN GOSUB 880: GOTO 
810 GM 

819 GOTO 810 CN 

820 TP=CL:CL=CL-17:I=PG*38+ZN*19+J MP 

821 IFSF(I)=1THENG0SUB190:PRINTCHR$(146) 
FL$(CF-f-I);:SF(I)=0:G0T0 824 EA 

823 IF SF(I)=0 THEN GOSUB 190: PRINT CHR$ 
(18)FL$(CF+I)CHR$(146);:SF(I)=1 00 

824 CL=TP: RETURN LM 

840 I=PG*38+ZN*19+J:IF I-NF THEN RETURN KD 

841 J=J+1:IF J>19 THEN J=I9 KJ 

844 GOSUB 190: PRINT " "; JI 

845 RW=RW+1:IF RW>21 THEN RW=21:J=J-1 EK 
850 GOSUB 190-.PRINT AR$; : RETURN KL 

860 J=J-1:IF J<0 THEN J=0 PD 

861 GOSUB 190: PRINT " "• JI 
865 RW=RW-1:IF RW<3 THEN RW=3 EF 
870 GOSUB 190:PRINT AR$;: RETURN KL 
880 IF NF<PG*38+19 THEN RETURN LF 
885 GOSUB 190:PRINT " "; :RW=3:CL=38: J=0: 
ZN=1: GOSUB 190: PRINT AR$;: RETURN FK 
890 REM JD 
895 GOSUB 190: PRINT " "j :RW-3:CL-18:J-0: 
ZN=0:GOSUB 190:PRINT AR$;:RETURN KJ 
900 INPUT* 15, A$,B$,C$,D$ CN 
905 RW=23:CL=0: GOSUB 190: PRINT "[38" "]" 

; MO 

910 RW=23:CL=0: GOSUB 190: PRINT A$"[SS]"B 
$" [ SS ] "C$" [ SS ] "D$ ; : ER=1 : RETURN MK 
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920 ER=0: RETURN EN 

1000 IF NF<38 THEN RETURN IJ 

1005 PG=PG+1:IF PG*38>NF THEN PG-0 MF 
1010 GOSUB 400: RETURN OJ 

10000 CLR:DIM FL$(76) ,S(76) ,EN(76) ,SF(76 
) EP 

10005 BL$=CHR$(154) :YL$=CHR$(158) :RV$=CH 
R$(18):R0$«CHR$(146):AR$«CHR$(95) BE 
10010 POKE 53280, 11 :P0KE 5328 1,0: PRINT C 
HR$(147)BL$; ED 

10012 CD$»BL$+" <CRSR> <H0ME>"+YL$+" MO 
VES "+BL$+" <RTRN>"+YL$+" SELECTS [SS]"+ 
BL$ EH 

10015 HD$-CHR$(18)+"[10" "]FILE LOCK VO[ 
3"2"]/85[12" "]"+CHR$(146) NO 

10020 PRINT HD$; IG 

10030 PRINT: PRINT "INSERT DISK AND HIT " 
YL$"<RETURN>"BL$; LC 

10035 GOSUB 70: PRINT: PRINT "READING DIRE 
CTORY": MH 

10040 GOSUB 200 :PG=0:ZN=0: GOSUB 400 NK 
10050 RWa24:CL=0: GOSUB 190 PG 

10055 PRINTYL$ "SCRATCH LOCK UNLOCK PAGE 
BOOT QUIT ? "BL$CHR$(157); IE 

10056 GOSUB 100 CJ 
10060 IF A$="Q" THEN END GE 
10065 IF A$="S" THEN PRINT A$ ; : CM$=A$ : GO 
SUB 500: GOTO 10000 JL 
10070 IF A$= n L" THEN PRINT A$; :CM$=A$:GO 
SUB 600: GOTO 10000 OJ 
10075 IF A$="U" THEN PRINT A$; :CM$=A$:GO 
SUB 700: GOTO 10000 GH 
10080 IF A$="B" THEN PRINT A$;:G0T0 1000 

IH 

10085 IF A$="P" THEN PRINT A$;: GOSUB 100 
MG 

10090 GOTO 10050 IF 

60000 CLOSE 15:0PEN 15,8, 15,"IO:":CLOSE1 

5 IA 

60001 SAVE "60; FILE LOCK V0[3"2"]",8 GA 

61000 OPEN 15,8,15:INPUT#15,A$,B$,C$,D$ GK 

61001 PRINT: PRINT A$"[SS]"B$"[SS]"C$"[SS 
]"D$:CL0SE15:ST0P AC 

ROCKETS, BOATS & 
PIOS IN POKES 

FROM PAGE 18 pic in a poke 

•1 REM *** PIG IN A POKE *** IE 
•2 REM AN EXAMPLE OF GAME PROGRAMMING WIT 
H A SPRITE OE 

-4 REM ** MOVE TOP OF MEMORY TO MAKE ROOM 

FOR VIDEO BLOCK AT 32768 CA 

•5 POKE 55, 255: POKE 56, 127: POKE 643, 255 :P 



! entering any programs! 

OKE 644,127 KG 

■9 REM *** SET-UP SUBROUTINES *** OF 
•10 GOSUB 600: REM (VIDEO MEMORY) II 
•11 GOSUB 700: REM (BACKGROUND STRING) BM 
•12 GOSUB 800: REM (SPRITE SHAPES) PB 
•13 GOSUB 900: REM (SPRITE POSITIONS) IE 
•15 GOTO 100 CF 

•98 REM *** ACTION LOOP *** KJ 
•100 K=KP(PEEK(653)):IF K>2 OR EG-1 THEN 
300 NO 

•105 IF K>1 THEN 130 AG 

•110 HP-HP+K(K):IF HP<0 THEN HP=HZ HE 
•115 IF HP>HZ THEN HP=0 KM 

•120 IF KOXK THEN XK=K:POKE LT(0),ST(XK) KN 
•125 POKE HT(0),HH(HP):P0KE HR t HB(HP) AO 
•130 IF VAL(TI$)>=DT THEN GOSUB 500 EB 
•135 IF PEEK(CF)>0 THEN GOSUB 400 NA 
•196 GOTO 100 CF 

■198 REM *** WAIT FOR RESPONSE *** HO 
•296 RETURN IM 

•298 REM *#* ENDING ROUTINES *** NL 
•300 PRINT "[CLEAR] FINAL SCORE: "RT*100+ 
VP*10:PRINT:PRINT:VP=15:P0KE VT(0),VV(VP 
) NM 

310 PRINT "TO PLAY AGAIN, PRESS P": PRINT 

"TO QUIT, PRESS Q":HP=79 JE 

315 HP=79:P0KE HR,HB(HP) :POKE HT(0),HH(H 
P):XP=1:P0KE LT(0),ST(XP) JM 

320 Z=PEEK(203):IF Z=62 THEN 370 EA 
325 POKE HT(0),HH(HP):POKE HR.HB(HP) AO 
330 HP=HP+1:IF HP>HZ THEN HP=0 FJ 
345 IF Z<>41 THEN 320 PE 

350 EG=0 : DL=0 : DT=1 : DS=5 : RT=0 : RC=0 : GOSUB 
930: GOTO 100 AK 

369 REM ** PUT VIDEO MEMORY BACK TO FIRS 

T BLOCK, AND SCREEN MEMORY TO 1024 EG 

370 POKE 56578, PEEK(56578)0R3: POKE 56576 
,(PEEK(56576)AND 252)OR 3 MB 

371 POKE 53272, 20: POKE 648,4 OM 

379 REM ** REENABLE SHI FT /COMMODORE AND 
RUN-STOP/RESTORE FB 

380 POKE 657,0: POKE 792,71:P0KE 808,237 PK 
390 END IC 

398 REM *** COLLISION HANDLER *** IG 

399 REM ** END GAME? CE 

400 VP=VP-1:IF VP<0 THEN EG=1: RETURN PN 

401 REM ** MOVE UP NJ 

402 POKE VT(0),VV(VP) MD 

403 REM ** CLEAR COLLISION REGISTER BF 

404 Z=PEEK(CS):Z=PEEK(CF) KI 

405 REM ** NEW COLLISION? ON 

406 IF PEEK(CF)>0 THEN 400 FC 
496 RETURN IM 

498 REM *** SCROLL ROUTINE *** JF 

499 REM ** NEW ROW OR SIMPLE JUMP? PJ 

500 IF RC=DS THEN 506 NB 
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501 REM ** SIMPLE JUMP NJ 

502 PRINT "[HOME] [25"[DOWN]"] [HOME]"; OJ 

503 RC=RC+1:G0T0 520 CK 

505 REM ** PUT NEW ROW ON SCREEN BG 

506 PRINT ,, [H0ME][24"[D0WN]"]"MID$(WS$,W 
L(DL)+INT(19*RND(9)),40) n [HOME]"; PL 

508 RCWJ:RT=RT+1:DL=DL+1:IF DL>8 THEN DL 
=0:DS=DS-1 A J 

509 REM ** END OF GAME? LE 

510 IF RT>49 THEN EG=1 GG 
520 IF PEEK(CF)>0 THEN GOSUB 400: REM ** 
COLLISION KN 
580 POKE 217, LI: POKE 218, L2 PJ 

589 REM ** RESET TIMER NP 

590 TI$="[6"0"]" NI 
596 RETURN IM 

598 REM *** ARRANGE MEMORY *** KB 

599 REM USE THIRD VIDEO BLOCK (32768 TO 
49151), SO ROM CHARACTER SET IS USABLE. AL 

600 VB=32768:P0KE 56578, PEEK ( 56578 )0R3:P 
OKE 56576, (PEEK(56576)AND 252)0R 1 CN 

601 REM ** TELL VIC-2 WHERE SCREEN IS WI 
THOUT CHANGING CHARACTER SET LOCATION GA 

602 SB=0:POKE 53272, (SB*16)+4:SB=VB+1024 
*SB MO 

603 REM ** TELL BASIC WHERE SCREEN IS GB 

604 BB=SB/ 256: POKE 648,BB AK 

608 REM *** REGISTER ADDRESSES *** EJ 

609 REM ** SPRITE SHAPE LOCATION TABLE IF 

610 LT(0)=SB+1016:F0R 1=1 TO 7:LT(I)=LT( 
I-1)+1:NEXT AF 

611 REM ** SPRITE COLOR TABLE LA 

612 CT(0)=53287:FOR 1=1 TO 7:CT(I)=CT(I- 
1)+1:NEXT AN 

613 REM ** SPRITE HORIZONTAL POSITION TA 
BLE (LOW BYTES) CH 

614 HT(0)=53248:FOR 1=1 TO 7:HT(I)=HT(I- 
1)+2:NEXT KC 

615 REM ** SPRITE VERTICAL POSITION TABL 

E U 

616 VT(0)=53249:FOR 1=1 TO 7:VT(I)=VT(I- 
1)+2:NEXT AJ 

617 REM ** SPRITE HORIZONTAL HIGH-BIT RE 
GISTER IG 

618 HR=53264 FB 

619 REM ** SPRITE ENABLE REGISTER AF 

620 ES=53269 FE 

621 REM ** VERTICAL EXPANSION REGISTER ( 
1=D0UBLE HEIGHT) IB 

622 VE=53271 GC 

623 REM ** HORIZONTAL EXPANSION REGISTER 
<1=D0UBLE WIDTH) PL 

624 HE=53277 FC 

625 REM ** SPRITE PRIORITY REGISTER (1=S 
PRITE IS IN FRONT OF FOREGROUND) GM 

626 PR=53275 FJ 

627 REM ** MULTICOLOR ENABLE REGISTER (1 
=MULTI-COLOR ENABLED) IM 
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•628 EM=53276 EK 

•629 REM ** SPRITE MULTICOLOR COLOR REGIS 
TERS OH 

•630 MR=53285:REM ('01* REGISTER: ADD 1 T 
MR FOR * 11' REGISTER) LJ 

•631 REM ** SPRITE-SPRITE COLLISION REGIS 
TER OF 

•632 CS=53278 GA 

•633 REM ** SPRITE-FOREGROUND COLLISION R 
EGISTER MD 

•634 CF=53279 FK 

•635 REM ** SET-BIT AND CLEAR-BIT VALUES BI 
■636 BS(0)=1:F0R 1=1 TO 7: BS(I)=2*BS(I-1) 

: NEXT NE 

■637 FOR 1=0 TO 7:BC(I)=255-BS(I) :NEXT LB 
■638 REM *** INITIALIZE VALUES *** DK 
•639 REM ** FOREGROUND COLOR FL 

•640 POKE 53281, 9: PRINT "[CLEAR] [c 2]";:R 
EM (BROWN) BC 

•641 REM ** BACKGROUND COLOR DK 

•642 POKE 53281,5 :REM (GREEN) GM 

•643 REM ** BORDER COLOR BE 

•644 POKE 53280,9: REM (BROWN) LM 

•645 REM ** SPRITE COLORS (DEFAULTS: WHI, 
RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAY) IE 
•646 POKE CT(0),I:REM (THE PIG IS WHITE) FI 
•647 REM ** SET PRIORITY EF 

•648 POKE PR, 0: REM (ALL IN FRONT) OD 
•649 REM ** SET HORIZONTAL SIZES BJ 
•650 POKE HE, 0: REM (ALL NORMAL WIDTH) AL 
•651 REM ** SET VERTICAL SIZES CC 

•652 POKE VE,0:REM (ALL NORMAL HEIGHT) PK 
•653 REM ** ENABLE SPRITES OD 

•654 POKE ES,BS(0):REM (SPRITE ONLY) KB 
•689 REM *** SAFETY PROCEDURES *** CM 
•690 POKE 657, 128: REM DISABLE SHIFT/COMMO 
DORE CHARACTER SET SWITCH OA 

•691 POKE 808, 2 34: POKE 792, 193: REM DISABL 
E STOP AND STOP/RESTORE JJ 

•696 RETURN IM 

•698 REM *** BACKGROUND STRING *** FD 
•700 WC$="[s V]":BC$=" " IH 

•709 REM SET UP WALL STRING GA 

•710 FOR 1=1 TO 12 MP 

•714 REM EACH WALL UNIT IS WIDER, EACH GA 
P NARROWER CD 

•715 FOR J=l TO 5+1 :WS$=WS$+WC$: NEXT EA 
•720 FOR J=l TO 15-1 :WS$=WS$+BC$: NEXT GK 
•725 NEXT IA 

•729 REM SET WALL STARTING POINTS JM 
•730 WL(0)=1:FQR 1=1 TO 9:WL(I)=WL(I-l)+2 
0:NEXT PD 

•739 REM SET DIFFICULTY LEVELS (DL=SPACIN 
G; DT=TIMING; DS=VERTICAL SPACING) PI 
•740 DL=0:DT=1:DS=5 OJ 

•796 RETURN IM 

•798 REM *** SPRITE SHAPES **# CD 
•799 REM ** NUMBER OF SPRITE SHAPES (-1); 



NUMBER OF LINES PER SPRITE SHAPE (-1) CE 

800 NS=1:TS=9 GK 

801 REM ** LOCATE SPRITE SHAPE MEMORY OM 

802 ST(0)=16:F0R 1=1 TO NS:ST(I)=ST(I-1) 
+1:NEXT HM 

803 REM ** LOOPS HL 

804 FOR 1=0 TO NS:F0R J=0 TO TS:READ SS$ 
:F0R K=0 TO 2:X=0: Y=VB+ST(I)*64+J*3+K IB 

805 REM ** CONVERT STRINGS TO SHAPE BYTE 

S (USE BS(0-7) TO SET BITS) LA 

806 FOR L=l TO 8:M=L+8*K:M=ASC(MID$(SS$, 
M,1)):IF M=42 THEN X=X OR BS(8-L) KC 

807 NEXT: POKE Y,X: NEXT: PRINT SS$:NEXT GO 

808 Z=64-(TS*3+2):FOR J=Y+1 TO Y+Z:POKE 
J,0:NEXT:NEXT PF 

809 REM SPRITE SHAPE DATA, 21 LINES PER 
SHAPE: *='0N' .='OFF' MJ 

810 DATA "[ 5". "]*[14*\" ]**.." HG 

811 DATA "[5"."]** [4"."] [6"*"] [5V]*." GO 

812 DATA "[4"."][16"* M ].*.." IG 

813 DATA M [3\"]*.[16"*"][3","]" MG 

814 DATA "[22"*"],." LK 

815 DATA "[22"*"].." LK 

816 DATA ,r [4 ,, . ,, ][17"*"]t3 n . rf ] n HO 

817 DATA "[6"."][14"*"][4"."] M HC 

818 DATA "[6". "]**. *[5"."]*.**[5"."J" AC 

819 DATA "[5"."]**.,**[3"."]**.**[5"."]" DC 

820 REM ** 2ND SHAPE CL 

821 DATA \**[14"."]*[6"."]" JG 

822 DATA "*[5"."][6"*"] [4"."]**[6"."] M FO 

823 DATA ".*. [16"* ,, ][5 , V 1 ]" MG 

824 DATA ". , [ 16"*"] ,*[4"."]" IG 

825 DATA ".[22"*"]." BK 

826 DATA ".[22"*"]." BK 

827 DATA ". . [17"*"] [5"."]" HO 

828 DATA "[3"."] [14"*"] [7"."]" KC 

829 DATA "[4". "]**.* [5". "]*.** [7"."]" MC 

830 DATA "[4". "]**.**[3". "]**.. **[6". "]" OC 
896 RETURN IM 

898 REM *** SPRITE POSITIONS *** KA 

899 REM ** POSSIBLE POSITIONS DIM 1 ED MK 

900 VZ=19:HZ=147:DIM HH(HZ), VV(VZ) ,HB(HZ 

) EJ 

901 REM ** ASSIGN HORIZONTAL VALUES I A 

902 X=24:B=0:F0R 1=0 TO HZ:HH(I)=X:HB(I) 
=B ML 

903 X=X+2:IF X>255 THEN X=X-256:B=1 DP 

904 NEXT IA 

905 REM ** ASSIGN VERTICAL VALUES LF 

906 X=53:F0R 1=0 TO VZ: VV(I)=X:X=X+8:NEX 

T JN 

919 REM ** KEYPRESS MATRIX EO 

920 DIM KP(7),K(2) JA 

921 FOR 1=0 TO 7:KP(I)=2:NEXT:KP(1)=1:KP 
(2)=0:KP(7)=3 ML 

922 K(0)=-1:K(1)=1:K(2)=Q BK 

929 REM ** INITIAL SPRITE POSITIONING 10 

930 HP=79:VP=VZ:XK=1 MH 



•931 POKE VT(0) t VV(VP):POKE HT(O) ,HH(HP) : 
POKE HR.HB(HP) AC 

•939 REM ** TELL VIC-2 WHERE TO FIND SPRI 
TE SHAPE HK 

•940 POKE LT(0),ST(XK) HF 

•949 REM ** CREATE SCREEN DISPLAY ED 
•950 PRINT "[CLEAR]";: FOR 1=0 TO 5: FOR J= 

TO DStPRINT "[DOWN]";: NEXT IF 
•955 PRINT MID$(WS$,1+INT(19*RND(9)),40); 

: NEXT: PRINT "[HOME]"; OK 

•959 REM ** CLEAR SCREEN LINE LINK TABLE KP 
•960 Ll=PEEK(217)OR 128:L2=PEEK(218)0R 12 

8:P0KE 217,L1:P0KE 218 t L2 DN 

•969 REM ** CLEAR COLLISION REGISTERS GC 
■970 Z=PEEK(CF):Z=PEEK(CS) IA 

•989 REM ** SET CLOCK EI 

•990 TI$="[6"0"]" NI 

•996 RETURN IM 

. BASIC SPRITES 

1 REM *** BASIC SPRITES *** GC 

2 REM A SHIP AND A ROCKET DEMONSTRATE SP 
RITE CREATION AND MOVEMENT MN 

9 REM *** SET-UP SUBROUTINES *** OF 

10 GOSUB 600: REM (VIDEO MEMORY) II 

11 GOSUB 700: REM (BACKGROUND) ' AA 

12 GOSUB 800: REM (SPRITE SHAPES) PB 

13 GOSUB 900: REM (SPRITE POSITIONS) IE 
15 GOTO 100 CF 
98 REM *** ACTION LOOP *** KJ 
100 VP=VP+1:IF VP>VZ THEN VP=0 BH 
110 HP«HP-1:IF HP<0 THEN HP-HZ GG 
120 POKE VT(1),VV(VP) LO 
130 POKE HT(0),HH(HP):POKE HR.HB(HP) :POK 

E HT(1),HH(HP) LP 

140 WV=WV-1:IF WV<1 THEN WV=8 EG 

150 PRINT DD$MID$(ST$,WV,40)"[H0ME]"; CI 
196 GOTO 100 CF 

198 REM *** WAIT FOR RESPONSE *** HO 
296 RETURN IM 

298 REM *** ENDING ROUTINES *** NL 
300 PRINT "[CLEAR] FINAL SCORE: "RT*100+ 
VP+10: PRINT: PRINT :VP=1 5: POKE VT(0),VV(VP 
) NM 

•310 PRINT "TO PLAY AGAIN, PRESS P": PRINT 

"TO QUIT, PRESS Q":HP=79 JE 

•315 HP=79:POKE HR,HB(HP) :POKE HT(0),HH(H 
P):XP=1:P0KE LT(0),ST(XP) JM 

•320 Z=PEEK(203):IF Z=62 THEN 370 EA 
•325 POKE HT(0),HH(HP):POKE HR.HB(HP) AO 
•330 HP=HP+1:IF HP>HZ THEN HP=0 FJ 
•345 IF Z<>41 THEN 320 PE 

• 350 EG=0 : DL=0 : DT=1 : DS=5 : RT=0 : RC=0 : GOSUB 
930: GOTO 100 AK 

•369 REM ** PUT VIDEO MEMORY BACK TO FIRS 
T BLOCK, AND SCREEN MEMORY TO 1024 EG 
•370 POKE 56578, PEEK ( 56578 )0R3: POKE 56576 
,(PEEK(56576)AND 252)0R 3 MB 
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371 POKE 53272, 20: POKE 648,4 OM 

379 R&M ** REENABLE SHIFT/COMMODORE AND 
RUN-STOP/RESTORE FB 

380 POKE 657,0:POKE 792,71: POKE 808,237 PK 
390 END IC 

598 REM *** ARRANGE MEMORY *** KB 

599 REM USE FIRST VIDEO BLOCK (0 TO 1638 

3) SO NOTHING FANCY HAS TO BE DONE. ME 

600 VB=0 HP 

601 REM ** SCREEN MEMORY STAYS WHERE IT 

IS LK 

608 REM *** REGISTER ADDRESSES *** EJ 

609 REM ** SPRITE SHAPE LOCATION TABLE IF 

610 LT(0)=2040:F0R 1=1 TO 7:LT(I)=LT(I-1 
)+l:NEXT HP 

611 REM ** SPRITE COLOR TABLE LA 

612 CT(0)=53287:FOR 1=1 TO 7:CT(I)=CT(I- 
1)+1:NEXT AN 

613 REM ** SPRITE HORIZONTAL POSITION TA 
BLE (LOW BYTES) CH 

614 HT(0)=53248:FOR 1=1 TO 7:HT(I)=HT(I- 
1)+2:NEXT KC 

615 REM ** SPRITE VERTICAL POSITION TABL 

E IJ 

616 VT(0)=53249:FOR 1=1 TO 7: VT(I)=VT(I- 

1) +2: NEXT A J 

617 REM ** SPRITE HORIZONTAL HIGH-BIT RE 
GISTER IG 

618 HR=53264 FB 

619 REM ** SPRITE ENABLE REGISTER AF 

620 ES=53269 FE 

621 REM ** VERTICAL EXPANSION REGISTER { 
1=D0UBLE HEIGHT) IB 

622 VE=53271 GC 

623 REM ** HORIZONTAL EXPANSION REGISTER 
(1=D0UBLE WIDTH) PL 

624 HE=53277 FC 

625 REM ** SPRITE PRIORITY REGISTER (US 
PRITE IS IN FRONT OF FOREGROUND) GM 

626 PR=53275 FJ 

627 REM ** MULTICOLOR ENABLE REGISTER (1 
=MULTI -COLOR ENABLED) IM 

628 EM=53276 EK 

629 REM ** SPRITE MULTICOLOR COLOR REGIS 
TERS OH 

630 MR=53285:REM ('01' REGISTER: ADD 1 T 

MR FOR 'll f REGISTER) LJ 

631 REM ** SPRITE-SPRITE COLLISION REGIS 
TER OF 

632 CS=53278 GA 

633 REM ** SPRITE-FOREGROUND COLLISION R 
EGISTER MD 

634 CF=53279 FK 

635 REM ** SET-BIT AND CLEAR-BIT VALUES BI 

636 BS(0)-1:F0R 1=1 TO 7:BS(I)=2*BS(I-1) 
:NEXT NE 

637 FOR 1=0 TO 7:BC(I)=255~BS(I) :NEXT LB 

638 REM *** INITIALIZE VALUES *** DK 
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639 REM ** FOREGROUND COLOR PL 

640 POKE 53281, 6:PRINT "[CLEAR] [BLUE]"; : 
REM (BLUE) CC 

641 REM ** BACKGROUND COLOR DK 

642 POKE 53281, 14:REM (LIGHT BLUE) AH 

643 REM ** BORDER COLOR BE 

644 POKE 53280,0: REM (BLACK) II 

645 REM ** SPRITE COLORS (DEFAULTS: WHI, 
RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAY) IE 

646 POKE CT(0),0:POKE CT(1),2:REM (THE S 
HIP IS BLACK, THE ROCKET RED) IG 

647 REM ** SET PRIORITY EF 

648 POKE PR, 255: REM (ALL BEHIND) JD 

649 REM ** SET HORIZONTAL SIZES BJ 

650 POKE HE, 1: REM (SHIP IS DOUBLE WIDTH, 
ROCKET IS NORMAL WIDTH) PP 

651 REM ** SET VERTICAL SIZES CC 

652 POKE VE,2:REM (ROCKET IS DOUBLE HEIG 
HT) NG 

653 REM ** ENABLE SPRITES OD 

654 POKE ES,BS(0) OR BS(1):REM (SPRITES 

AND 1) LP 

696 RETURN IM 

698 REM *** SET UP OCEAN *** JG 

700 R$=CHR$(18):RX$=CHR$(146):B$= S " " BJ 

701 FD$«CHR$( 162)+CHR$( 185)+CHR$( 175)+CH 
R$(228) HJ 
703 FU$=B$+CHR$(228)+CHR$(175)+CHR$(185) BF 

705 S$=R$:FOR 1=1 TO 40:S$=S$+B$:NEXT:S$ 
=S$+RX$ BI 

706 ST$=FU$+FD$+FU$+FD$+FU$+FD$ : ST$=ST$+ 
ST$ LC 

707 DD$="[H0ME][20"[D0WN]"]" EL 

708 WV=8 JO 

710 PRINT "[ CLEAR ]"DD$MID$ (ST$,WV, 40) S$S 
$S$LEFT$(S$,40)"[H0ME]"RX$; EM 

711 POKE 2023,160 BH 
796 RETURN IM 

798 REM *** SPRITE SHAPES *** CD 

799 REM ** NUMBER OF SPRITE SHAPES (-1); 
NUMBER OF LINES PER SPRITE SHAPE (-1) CE 

800 NS=1 ID 

801 REM ** LOCATE SPRITE SHAPE MEMORY OM 

802 ST(0)=13:ST(1)=14 01 

803 REM ** LOOPS HL 

804 FOR 1=0 TO NS:FOR J=0 TO 20: READ SS$ 
:FOR K=0 TO 2:X=0:Y=VB+ST(I)*64+J*3+K IG 

805 REM ** CONVERT STRINGS TO SHAPE BYTE 

S (USE BS(0-7) TO SET BITS) LA 

806 FOR L=l TO 8:M=L+8*K:M=ASC(MID$(SS$, 
M,1)):IF M=42 THEN X=X OR BS(8-L) KC 

807 NEXT: POKE Y,X: NEXT: NEXT: NEXT HP 

809 REM SPRITE SHAPE DATA, 21 LINES PER 
SHAPE: *='0N' .='OFF' MJ 

810 DATA ,, [9", ,, ]*[14 ,, . u 3" AG 

811 DATA ,, [9 ,, ."]*[14"."]" AG 

812 DATA " [9". "]*.,**[ 10". "]'* AG 

813 DATA "[9". "]*..**[ 10"."]" AG 
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814 DATA 

815 DATA 

816 DATA 

817 DATA 

818 DATA 

819 DATA 

820 DATA 

821 DATA 

822 DATA 

823 DATA 

824 DATA 

825 DATA 

826 DATA 

827 DATA 

828 DATA 

829 DATA 

830 DATA 

831 REM ** 

832 DATA " 

833 DATA 

834 DATA 

835 DATA 

836 DATA 

837 DATA 

838 DATA 

839 DATA 

840 DATA 

841 DATA 

842 DATA 

843 DATA 

844 DATA 

845 DATA 

846 DATA 

847 DATA 

848 DATA " 

849 DATA " 

850 DATA " 

851 DATA " 

852 DATA " 

853 DATA " 
896 RETURN 
898 REM 



8". "]**..**[ 10"."]" 

8"."]**. [3"*"] [10"."]" 

9"."][5"*"][10"."]" 

7","][9"*"][8"."] M 

24"*"]' 1 

24"*" ]" 

.[20"*"].." 

3"."][18"*"][3"."]" 

3","][18"*"][3"."]" 

3"."][19"*"].." 

4"."] [18"*"].." 

5"."] [17"*"].." 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

24"."]" 

2ND SPRITE SHAPE 

21"."]*.." 

21"."]*.." 

20"!"] [3"*"]. 

20"."] [3"*"], 

20"."] [3"*"] 

20"."] [3"*"] 

20"."] [3"*" ], 

20"."][3"*"], 

20"."]*.*." 

20"."]*.*." 

24"."]" 

24"."]" 



24", 
24". 



V 

II lit 



24"."]" 
24"."]" 
24"."]" 
24"."]" 
24"."]" 
24"."]" 
24"."]" 
24"!"]" 



IK 
LO 
AG 
FG 
LC 
LC 
HC 
MC 
MC 
NG 
HC 
EG 
PC 
PC 
PC 
PC 
PC 
AB 
AG 
AG 
LG 
LG 
LG 
LG 
LG 
LG 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
PC 
IM 
KA 
MK 



*** SPRITE POSITIONS *** 

899 REM ** POSSIBLE POSITIONS DIM' ED 

900 VZ=32:HZ=362:DIM HH(HZ) ,VV(VZ) ,HB(HZ 

) OD 

901 REM ** ASSIGN HORIZONTAL VALUES IA 

902 X=0:B=0:FOR 1=0 TO HZ:HH(I)=X:HB(I)= 

B IJ 

903 X=X+1:IF X>255 THEN X=X-256:B=3 HC 

904 NEXT I A 

905 REM ** ASSIGN VERTICAL VALUES LF 

906 X=202:F0R 1=0 TO 9: VV(I)=X:X=X-1:NEX 
T:F0R 1=10 TO 14:VV(I)=X:X=X-2:NEXT LA 

907 :FOR 1=15 TO 18:VV(I)=X:X=X-3:NEXT;F 
OR 1=19 TO 21:VV(I)=X:X=X-6:NEXT CN 

908 FOR 1=22 TO VZ:VV(I)=X:X=X-12:NEXT FA 



■929 REM ** INITIAL SPRITE POSITIONING 10 
•930 HP=160;VP=0 LG 

•931 POKE VT(0),VV(VP}:POKE HT(0) f HH(HP) : 

POKE HR,HB(HP) AC 

•932 POKE VT(1),VV(VP):P0KE HT(1),HH(HP) CB 
•939 REM ** TELL VIC-2 WHERE TO FIND SPRI 

TE SHAPES KK 

•940 POKE LT(0),ST(0):POKE LT(1),ST(1) FK 
•996 RETURN IM 

TUMBLING DICE & 
DATA STRUCTURES* 

FROM PAGE 37 

DICE SIMULATOR 



REM JD 

REM — DICE SIMULATOR — BA 

REM RUPERT REPORT #21 01 

REM JD 

REM RANDOMLY SIMULATE THE EL 

REM OUTCOMES FOR ROLLING THREE DICE JE 

REM JD 

8 REM »DETERMINE THE PROBABILITY THAT CD 

9 REM THE SUM IS ELEVEN MD 

10 N=l : R$=CHR$(18) :REM RVS ON ME 
20 PRINT CHR$(147); JL 
30 PRINT TAB(15)R$;"« # ROLLS " DO 
40 PRINT TAB(15)R$;"« # SUCCESS " AG 
50 PRINT TAB(15)R$;"« % PROBABILITY " BO 
60 A=INT(RND(0)*6)+1 PI 
70 B=INT(RND(0)*6)+1 AL 
80 C=INT(RND(0)*6)+1 AO 
90 TTL=A+B+C LK 
100 IF TTL^ll THEN SXCS=SXCS+1 KO 
110 PRINT CHR$(19);N : PRINT SXCS JM 
120 PROB=100*SXCS/N : PRINT PROB JG 
130 N=N+1 CJ 
140 GOTO 60 PG 

DICE ANALYZER 



1 REM 

2 REM — DICE ANALYZER — 

3 REM RUPERT REPORT #21 

4 REM 

5 REM ENUMERATE ALL POSSIBLE 

6 REM OUTCOMES FOR ROLLING THREE DICE 

7 REM 

8 REM »CALCULATE THE PROBABILITY THAT 



10 REM 

11 REM 



12 REM 

13 REM 



1) 3 ONES ARE ROLLED 

2) AT LEAST 1 THREE AND 1 SIX 
ARE ROLLED 

3) NO TWOS ARE ROLLED 

4) THE SUM IS ELEVEN 



14 REM 
*Bvg Repellent line codes at right of program lines are for C-64 only! See VIC codes on next page, 



JD 
OE 
01 
JD 

FL 
JE 
JD 

NA 
NP 

HM 
HF 
DN 
JD 
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IMPORTANT! Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
I III lUll l#lll I I and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 

# 80: EA # 140: IL # 200: GN f 260: MG 

# 90: NP # 150: JO # 210: M § 270: 0M 

# 100: I A # 160: IB # 220: KH # 280: CB 

# 110: A J # 170: FF # 230: BA # 290: NG 

# 120: EL # 180: NG # 240: KN # 300: NH 

# 130; ON # 190: JJ # 250: JJ I I 



15 REM >0N THE NTH ROLL (N = 1 TO 216): DF 

16 REM ROLL(N.Y) = DIE Y*S VALUE DF 

17 REM CT(N,Z) = # DICE WITH VALUE Z KK 

18 REM TTL(N) = SUM OF DICE VALUES AH 

19 REM JD 

20 DIM RQLL(216,3),CT(216,6),TTL(216),RN 
UM(216) JN 
30 N=l : M=l : PRINT CHR$(147) HH 
40 FOR A«l TO 6 : FOR B=l TO 6 FJ 
50 FOR C=l TO 6 ID 
60 PRINT A;B;C OD 
70 R0LL(N,1)=A:R0LL(N,2)=B:R0LL(N,3)=C OL 
80 CT(N,A)=CT(N,A)+1 :CT(N,B)=CT(N,B)+1 HH 
90 CT(N,C)=CT(N,C)+1 NP 
100 TTL(N)=A+B+C IA 
110 N=N+1 : NEXT C : NEXT B : NEXT A BN 
120 PRINT"CALCULATING [3"."] " JP 
130 FOR N=l TO 216 AE 
140 :IF CT(N,1)=3 THEN Tl-Tl+1 LI 
150 :IF CT(N,3)>=1 AND CT(N,6)>=1 THEN T 
2=T2+1 EA 
160 :IF CT(N,2)=0 THEN T3=T3+1 FE 
170 :IF TTL(N)=11 THEN T4-T4+1:RNUM(M)=N 
:M=M+1 LE 
180 NEXT N NA 
190 PRINT J J 
200 PRINT,"# SUCCESS"," % PROBABILITY" JO 
210 PRINT "TEST 1",T1,T1*100/216 OL 
220 PRINT "TEST 2",T2,T2*100/216 EM 
230 PRINT "TEST 3",T3,T3*100/216 OF 
240 PRINT "TEST 4",T4,T4*100/216 NO 
250 PRINT J J 
260 PRINT"SUCCESSFUL ROLLS FOR TEST 4:" HD 
270 FOR M=l TO T4 OG 
280 RM-RNUM(M) CB 
290 PRINT ROLL(RM,l);R0LL(RM f 2);R0LL(RM, 
3), LA 

•300 NEXT M NB 

VIC 20 BUG REPELLENT LINE CODES FOR 
TUMBLING DICE & DATA STRUCTURES 

DICE SIMULATOR 



JD 
PB 
OE 
JD 

KL 
MK 



# 7: 

# 8: 

# 9: 

# 10: 

# 20: 

# 30: 



JD 
KJ 

LG 
MI 
JH 
FO 



# 40 

# 50 

# 60 
» 70 

# 80 

# 90 



LK 
ME 

PI 
AL 
AO 
LK 



# 100: 

# 110: 

# 120: 

# 130: 

# 140: 



GC 
NO 
CM 
CJ 
PD 



DICE ANALYZER UftK EXPANSION required;) 



# 1: 

# 2: 

# 3: 

# 4: 

# 5: 
§ 6: 



JD 
IK 
OE 
JD 
EF 
MK 



# 7: 

# 8: 

# 10: 

# 11: 

# 12: 

# 13: 



JD 

J I 
01 
MM 
FC 
GD 



# 14 

# 15 

# 16 

# 17 

# 18 
I 19 



JD 

IC 
IH 
IE 
PO 
JD 



# 20: 

# 30: 

# 40: 

# 50: 

# 60* 

# 70: 



EG 
HA 
EP 
HK 
OF 
OL 



II 



FROM PAGE 77 



(See article (or instructions on entering!) THE QUEST 

10 j 

20 ;THE QUEST 

30 ; 

40 *=8000 ;0R 'ORG EQU $8000' (OR $2000 

) 

50 ; 

60 BUFLEN-23 

70 CHR0UT=$FFD2 

80 ; 

90 JMP BEGIN 

100 ; 

110 TEXT .BYTE 87,72,69,82,69,32,73,83 

120 .BYTE 32,84,72,69,32,67,79,77 

130 .BYTE 77,79,68,79,82,69,63 

140 ; 

150 BEGIN LDX #0 

160 ; 

170 LOOP LDA TEXT.X 

180 JSR CHROUT 

190 INX 

200 CPX #BUFLEN 

210 BNE LOOP 

220 RTS 

RESPONSE 

10 ; 

20 ; RESPONSE 

30 ; 

40 *=$8000 ;0R 'ORG EQU $8000' (OR $200 

0) 

50 ; 

60 E0L=13 ;END-OF-LINE CHARACTER 

70 BUFLEN=40 ; LENGTH OF TEXT BUFFER 

80 FILLCH=$20 ; ASCII CODE FOR A SPACE 

90 CHR0UT=$FFD2 

100 ; 

110 JMP START 

120 ; 

130 TEXT .BYTE 'YOU CAN FIND HIM IN 64K' 

,13 

140 ; 

150 ;CLEAR TEXT BUFFER 

160 ; 

170 START LDA #FILLCH 



100 AHOY! 



180 


LDX 


#BUFLEN 


190 


STUFF DEX 


200 


STA 


TXTBUF.X 


210 


BNE 


STUFF 


220 


• 
t 




230 


; STORE SSAGE IN 


240 


t 




250 


LDX 


#0 


260 


LOOP] 


. LDA TEXT.X 


270 


STA 


TXTBUF.X 


280 


CMP 


#EOL 


290 


BEQ 


PRINT 


300 


INX 




310 


CPX 


#BUFLEN 


320 


BCC 


L00P1 


330 


J 




340 


; PRINT MESSAGE 


350 


f 




360 


PRINT LDX #0 


370 


loop; 


! LDA TXTBUF.X 


380 


PHA 




390 


JSR 


CHROUT 


400 


PLA 




410 


CMP 


#EOL 


420 


BNE 


NEXT 


430 


JMP 


FIN L 


440 


NEXT 


INX 


450 


CPX 


#BUFLEN 


460 


BCC 


L00P2 


470 


J 




480 


FINI 




490 


RTS 




500 


r 




510 


TXTBUF-* 


520 


*=*+BUFLEN 


530 


• 
t 




540 


.END 



FROM PAGE 17 



•10 REM SUPERHERO 

■20 REM BY J.C.HILTY 

■30 REM 1036 BARNSLEY DR. 

■40 REM LIBRARY, PA., 15129 



FG 
LE 
JK 
KF 
II H 
OP 
FO 
HC 
IC 
DD 



■100 PRINT" [ CLEAR ]" 

■102 SR=0:ALT=000 

■103 Q=192:L=1141:C=28:CM=54272:M=0 

•105 V=53248: 0-54272 

•108 POKE 52, 48: POKE 56,48 

•110 POKE 53281, 6: POKE 53280,2 

•120 PRINT" [ DOWN ][ DOWN ]"TAB( 5) "[RVSON] [RE 
D][7" "][c *]" CH 

•130 PRINT TAB(5)"[RVS0N][8" "][c *]" NL 

•140 PRINT TAB(5)"[RVS0N] [BLACK] [RED] [Y 
ELL0W][7" "][RED] [c *] [RVSOFF] [RVS0N][ 
BLACK] [RED] [c *] [BLACK] [RED] [c *][B 
LACK] [RED] [c *] [BLACK] [RED] [c *]" CE 



•150 PRINT TAB( 5) "[RVSON] [BLACK] [YELLOW 
][7" "] [BLACK] [RED] [c *] [BLACK] [RED] 
[BLACK] [RED] [3" " ] [BLACK] [RED] [3" " ] 
[BLACK] [RED] [c *]" DP 

•160 PRINT TAB( 5) "[RVSON] [BLACK] [YELLOW 
][5" "][BLACK][3" "] [YELLOW] [BLACK] [ 
YELLOW] [BLACK] [YELLOW] [3" "][ BLACK] [ 
YELLOW] [3" "] [BLACK] [YELLOW] [3" "]" JG 

•170 PRINT TAB(5)"[ BLACK] [c *] [RVSON] [YE 
LL0W][7" "][ BLACK] [YELLOW] [BLACK] [Y 
ELLOW] [BLACK] [YELLOW] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [BLACK] [YELLOW] [B 
LACK] [YELLOW] " I A 

•180 PRINT TAB{6)" [BLACK] [c *] [RVSON] [YEL 
L0W][7" "][BLACK] [YELLOW] [BLACK] [YE 
LLOW] [BLACK] [YELLOW] [3" "] [BLACK] [YE 
LLOW] [RVSOFF] [RVSON] [BLACK] [ YELLOW ][ 
3" "] [BLACK ][c *]" IB 

•190 PRINT TAB( 10) "[RVSON] [BLACK] [YELLO 
W] [BLACK] [YELLOW] [BLACK] [YELLOW] 

[BLACK] [YELLOW] [RVSOFF] [BLACK] [c *][ 
RVSON] [YELLOW] [3" "][ RVSOFF ][ BLACK ][ c * 
] [RVSON] [YELLOW] [RVSOFF] [BLACK][c *][R 
VSON] [YELLOW] " 

■200 PRINT TAB( 5) "[RVSON] [BLACK] [RED] [4" 

"] [BLACK] [YELLOW] [BLACK] [YELLOW] [6 

" "] [RVSOFF] [BLACK] [c *] [RVSON] [YELLOW] 
it 

•210 PRINT TAB( 5) "[RVSON] [BLACK] [RED] [4 
" "][ BLACK] [YELLOW] [RVSOFF] [BLACK] [c 
*] [RVSON] [YELLOW] [6" "]" 

■220 PRINT TAB(5)"[BLACK][c *] [RVSON] [YE 
LLOW] [7" "]" 

•230 PRINT TAB(6)" [BLACK ][c *][ RVSON] [YEL 
LOW] [7" "] [RVSOFF] [RVSON] [BLACK] [RED][ 
c *] [BLACK] [RED][c *] [RVSOFF] [RVSON] [B 
LACK] [RED] [3" "][c *] [RVSOFF] [RVSON] [B 
LACK] [RED] [c *] [RVSOFF] [ RVSON ][BLAC 
K] [RED] [c *]" CL 

•240 PRINT TAB( 15)" [RVSON] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [ RVSON ][BLAC 
K] [YELLOW] [4" "] [RVSOFF] [RVSON] [BLACK] 

[YELLOW] [3" "] [RVSOFF] [RVSON] [BLACK] 
[YELLOW] [3" "]" FA 

■250 PRINT TAB( 15) "[RVSON] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [ RVSON ][BLAC 
K] [YELLOW] [BLACK] [c *] [RVSOFF] [RVSO 
N] [YELLOW] [BLACK] [YELLOW] [RVSOFF] [ 
RVSON] [BLACK] [YELLOW] [BLACK] [YELLOW] 

LE 

•260 PRINT TAB( 15) "[RVSON] [BLACK] [YELLOW 
][3" "] [RVSOFF] [ RVSON ][ BLACK ] [YELLOW J [ 
3" "] [RVSOFF] [RVSON] [BLACK] [YELLOW] [3 
" "] [RVSOFF] [RVSON] [BLACK ] [YELLOW] [B 
LACK] [YELLOW] " CI 

•270 PRINT TAB( 15)" [RVSON] [BLACK] [YELLOW 
] [BLACK] [YELLOW] [RVSOFF] [RVSON] [BLAC 
K] [YELLOW] [BLACK] [c *] [RVSOFF] [RVSO 
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GP 



FG 



EG 



AI 



N] [BLACK] [YELLOW] [BLACK] [RVS0FF][c *][ 
RVSON][ YELLOW] [RVSOFF] [RVSON] [BLACK] 
[YELLOW] [BLACK] [YELLOW] " HA 

280 PRINT TAB(15)"[BLACK][c *][RVSON][YE 
LLOW] [RVSOFF] [BLACK ][c *][ RVSON ][ YELLOW 
] [RVSOFF] [ BLACK] [c *] [RVSON ][ YELLOW] [4 
" "] [RVSOFF] [BLACK] [c *] [RVSON] [YELLOW] 
[RVSOFF] [ BLACK ][c *] [RVSON] [YELLOW] [R 
VSOFF] [BLACK] [c *] [RVSON] [YELLOW] [3" "] 

NN 
290 PRINT JJ 

300 PRINT TAB(9)"SAVE THE SPACE SHUTTLE" LL 
310 PRINT TAB(16)"PRESS ANY KEY" KL 
320 GET A$:IF A$= M " THEN 320 HI 

330 PRINT" [HOME]"; PRINT" [21" [DOWN]"]" T 
AB(15)"PLEASE WAIT[3"."] M JI 

340 PRINT TAB(15)"READING DATA" GH 
370 FOR X=12288 TO 12350 GB 

380 READ A: POKE X, A: NEXT BA 

390 FOR X=12352 TO 12414 DG 

400 READ A: POKE X,A:NEXT BA 

410 FOR X= 12416 TO 12478 FD 

420 READ A: POKE X, A: NEXT BA 

430 FOR X= 12480 TO 12542 DC 

440 READ A:POKEX,A:NEXT BA 

464 FOR X=828 TO 973 KC 

466 READ A:POKEX,A:NEXT BA 

470 PRINT" [CLEAR]" HH 

480 POKE 53280,0: POKE 53281,0 BH 

490 POKE 2040, 194: POKE 2041,195 IP 
500 POKE V+39,6:POKE V+40,1 DA 

510 POKE V+0,70:POKE V+1,80:P0KE V+2,70: 
POKE V+3,140 FI 

530 POKE V+29,3:P0KE V+23,3 MB 

540 POKE V+28,l:POKE V+37,10:POKE V+38,2 OD 
550 PRINT" [ HOME] " : PRINT" [ DOWN ] [CYAN ] "TAB 
(12)"GRAPHICS[3 M "]CHART" AF 

560 POKE V+21,3 FC 

570 PRINT" [5"[ DOWN ]"]"TAB(12)"[EP] [6" "] 
SUPERHERO" jh 

580 PRINT" [ 6" [ DOWN ] " ] "TAB( 18) "SPACESHUTT 
LE" CA 

590 PRINT" [4"[ DOWN ]"]"TAB(1 2) "[ GREEN ]*[C 
YAN][5" "JZYPTONITE METEOR" CH 

600 PRINT" [DOWN ]"TAB(14)"PRESS ANY KEY" FF 
610 GET A$:IF A$="" THEN 610 IC 

620 PRINT"[ CLEAR]" :POKE V+21,0 AH 
630 POKE 53280, 2: POKE 53281,0 EF 

700 DIMA(3) EJ 

710 A<0)=2:A(1)=-80:A(2) S -2:A(3)=8Q LN 
720 WL=160:HL=32:SC=1024:A=SC+81 AJ 

740 FOR 1=1 TO 6 JB 

741 PRINT "[RVSON] [GREEN] [15" "][RV 
S0FF][7" "] [RVSON] [17" "]" FF 

742 NEXT I MN 

744 FOR 1=1 TO 9 JC 

745 PRINT "[RVSON] [39" "]" GO 

746 NEXT I MN 
748 FOR 1=1 TO 8 JD 

102 AHOY! 



•750 PRINT" [RVSON] [15" "' 
VS0N][17" "]" 
•760 NEXT I 
•770 P0KEA.4 
•780 J=INT(RND(1)*4);X=J 



[RVSOFF] [7" "][R 



PM 
MN 
DL 
MO 



•790 B=A+A(J):IF PEEK(B)=WLTHENPOKEB,J:PO 

KEA+A(J)/2,HL:A=B:G0T0 780 BP 

•800 J=(J+1)*-(J<3):IF JOXTHEN790 FD 
•810 J=PEEK(A):POKE A,HL:IFJ<4THENA=A-A(J 

):GOTO 780 HB 
• 820 PRINT" [ HOME] " : PRINT" [ 1 5" [ DOWN ] " ] "TAB 

(16) "[CYAN] SCORE" DN 

•830 PRINT TAB(17);SR LI 
•831 PRINT" [4"[D0WN]"]"TAB(16)"ALT": PRINT 

TAB(16);ALT MF 

■832 POKE 2040,192 DH 
•833 POKE V+0, 150: POKE V+1,60:P0KE V+2,15 

0:POKE V+3,190 OK 

834 POKE V+21,3 FC 

840 POKE 1113,81 :POKE 1113+CM.7 PJ 

842 POKE 1835,81: POKE 1835+CM.7 JF 

844 POKE 1825,81: POKE 1825+CM.7 AH 

846 POKE 1509,81: POKE 1509+CM,7 EP 

848 POKE 1599,81: POKE 1599+CM.7 EF 

850 POKE 1605,81: POKE 1605+CM,? PL 

852 POKE 1137, 81: POKE 1137+CM.7 AF 

854 POKE 1131, 81: POKE 1131+CM.7 GJ 

856 POKE 1857,81: POKE 1857+CM.7 JF 

858 POKE 185 1,81: POKE 1851+CM.7 GJ 

860 POKE 1141, 28: POKE 1141+CM.3 FE 

865 POKE A,42:J=2 X 

870 Q=Q+1:IF Q=195 THEN Q=192 AK 

871 POKE 2040, Q OH 

872 ALT=ALT+1 FP 

873 IF ALT-800THEN3500 DP 

875 PRINT"[HOME]":PRINT ,, [22 ,, [DOWN]"][CYA 
N]" TAB(16);ALT AJ 

876 B=A+A(J)/2 JM 

877 IF PEEK(B)=32THENPOKEB,42:FOKEA,32:A 
=B:J=(J+2)+4*(J>l) LG 

878 IF PEEK(B)=81 THEN POKE B, 42: POKE A, 
81:P0KE A+CM,7:A=B:J=(J+2)+4*(J>l) KJ 

879 IF PEEK(B)=28 THEN 3000 IG 

880 J=(J-1)-4*(J«0) HI 

881 SYS(828}:R=PEEK(254)-PEEK(253) ML 
890 IF R=0 THEN 870 AO 
900 W=PEEK(L+R) GN 
910 IF W=81 THEN 1500 HI 
920 IF W<>32 THEN 870 PH 
930 L=L+R:POKE L-R,32:P0KE(L-R)+CM,5 BN 
940 POKE L,C:POKE L+CM,3 BB 
950 GOTO 870 CP 
1500 M=M+1:IF M=10 THEN 2500 LH 
1505 L=L+R:POKE L-R.32 BD 
1510 P0KEL,C:P0KEL+CM,3 BB 
1520 GOSUB 2000 FL 
1530 PRINT" [HOME]" : SR=SR+10: PRINT" [ 16" [D 
0WN]"][CYAN]"TAB(17);SR HG 

•1540 GOTO 870 CP 



IIWI DflDTA MTI Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
I IVI r Un IHIM I ■ and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



2000 FOR X=0 TO 0+24: POKE X,0:NEXT CE 
2010 POKE 0,150:POKEO+1,200:POKEO+5,8:PO 
KEO+6,248 NL 

2020 P0KE0+24,15:P0KE0+4,17 GB 

2030 FOR T=0T050:NEXT IM 

2040 POKEO+4,16 GC 

2050 FOR T=0T050:NEXT IM 

2060 POKEO+24,0 GH 

2070 RETURN IM 

2100 FOR X=0 TO 0+24 :P0K EX, 0: NEXT CH 
2110 POKE0+24,15:P0KEO+12,160:P0KE0+13,2 
52 JO 

2120 P0KE0+8,80:P0KEO+7,40:POKE 0+11,129 FB 
2130 FOR T=0TG100:NEXT LC 

2140 P0KE0+1 1,1 28: RETURN HA 

2500 PRINT" [CLEAR]" HH 

2502 PRINT" [CYAN ][15"[ DOWN]" ]"TAB(6)"C0N 
GRATULATIONS" GK 

2503 PRINT" [DOWN] [6" "JPLAY ON!" KF 

2504 FOR T=0 TO 3000: NEXT PL 
2510 M=0 DG 
2520 SR=SR+100:ALT=ALT -200 NI 
2525 L=1141 LN 
2528 PRINT"[CLEAR]" HH 
2530 GOTO 710 CA 
3000 PRINT" [CLEAR]" HH 
3005 FOR T=l TO 30 NI 
3010 POKE V+39,2:POKE V+39,l:POKE V+39,6 LL 
3020 NEXT IA 
3030 GOSUB 2100 FE 
3040 PRINT" [14" [DOWN]"] SORRY, A ZYPTONITE 

METEOR CRUSHED YOU." NE 

3050 FOR T=0 TO 3000; NEXT PL 

3060 GOTO 4000 FF 

3500 PRINT "[CLEAR]" HH 

3510 FOR T=l TO 20 MF 

3520 POKE V+40,2:POKE V+40,6:P0KE V+40,1 FD 
3530 NEXT IA 

3540 GOSUB 2100 FE 

■3550 PRINT"[12"[D0WN]"] [CYAN] THE SHUTTLE 
IS 800 MILES UP— TOO LATE." KF 

•3560 FOR T=0 TO 3000: NEXT PL 

•3570 GOTO 4000 FF 

•4000 PRINT" [CLEAR]" HH 

•4005 POKE V+21,0 FF 

■4010 PRINT"[ 12"[D0WN]"][RED]S CORE " 
;SR 

•4020 PRINT" [DOWN] [DOWN] PLAY AGAIN[3"-"]Y 
OR N " 

•4030 GET JUNK$:IF JUNK$<>""THEN 4030 

•4040 GET A$:IF A$=""THEN 4040 

■4050 IF A$-="Y" THEN 4060 

•4055 END 

•4060 PRINT" [CLEAR]" 

•4070 M=0 

•4080 L=1141 

•4090 ALT=000 



OM 

DK 
FG 
LO 
MF 
IC 
HH 
DG 
LN 
CK 



4100 SR=0 10 

4110 GOTO 710 CA 

6240 REM MULTICOLOR SUPERHERO X3 OF 
6250 DATA 0,160,0,0,144,0,0,144,0,0,192, 
0,3,160,0,12,160,0 IG 

6260 DATA 48,160,0,48,160,0,48,160,0,48, 
128,0,192,128,0,192,192,0 MJ 

6270 DATA 192,192,0,192,128,0,192,128,0, 
0,128,0,0,128,0,0,192,0 AN 

6280 DATA 0,192,0,0,192,0,0,240,0 FI 
6290 DATA 0,160,0,0,144,0,0,144,0,0,192, 
0,3,160,0,14,160,0,50,170,64,50,170,64 EI 
6300 DATA 50,160,0,56,128,0,204,128,0,19 
6,192,0,192,192,0,194,32,0 KF 

6310 DATA 194,32,0,8,8,0,8,8,0,48,12,0,4 
8,12,0,12,12,0,0,15,0 IN 

6320 DATA 0,160,0,0,144,0,0,144,0,0,192, 
0,3,160,0,14,160,64,48,171,0,48,162,0 HN 
6330 DATA 48,164,0,48,136,0,192,128,0,19 
2,192,0,192,192,0,194,32,0 MO 

6340 DATA 194,32,0,2,32,0,2,32,0,2,32,0, 
3,48,0,3,48,0,3,252,0 GA 

6350 REM SPACESHUTTLE EA 

6360 DATA 0,0,0,0,0,0,32,0,0,32,0,0,48,0 
,0,56,0,0 OJ 

6370 DATA 63,255,192,63,255,224,61,85,48 
,63,255,56 OJ 

6380 DATA 63,255,252,12,62,0,8,60,0,8,56 
,0,0,48,0 GG 

6390 DATA 0,32,0,0,0,0,0,0,0,0,0,0,0,0,0 



CG 
PM 



NM 
CA 



,0,0,0 

6450 REM ML JOYSTICK ROUTINE 

6460 DATA 173,1,220,74,176,40,74,74,176, 

11,169,0 FB 

6470 DATA 133,254,169,41,133,253,76,182, 

3,74,176,11,169,0,133,254,169,39 

6480 DATA 133,253,76,182,3,169,0,133,254 

,169,40,133,253,76,182,3,74,176 

6490 DATA 39,74,176,11,169,39,133,254,16 

9,0,133,253,76,182,3,74,176,11 KH 

6500 DATA 169,41,133,254,169,0,133,253,7 

6,182,3,169,40,133,254,169,0 NF 

6510 DATA 133,253,76,182,3,74,176,11,169 

,0,133,254,169,1,133,253,76,182,3 LG 

6520 DATA 74,176,11,169,1,133,254,169,0, 

133,253,76,182,3,169,0,133,254 

6530 DATA 133,253,173,1,220,74,74,74,74, 

74,176,7,169,1,133,80,76,203,3 

6540 DATA 169,0,133,80,96,234,234 



CH 

LJ 
EM 



AHOY! DOCK 

FROM PAGE 30 



•0 PRINT" [CLEAR]" 

■1 DIMSU$(500) ,TA$(500) ,AN$(500) ,MN$(500) 
,ID$(500),CM$(5O0):P$=",":OPEN15,8,15 
■2 G0T0100 

AHOY! 103 



HH 

IB 
CF 



10 FRINT"[CLEAR]":PRINTTAB(12);"ONE MOME 
NT READING": PRINT :PRINTTAB(20~LEN(Z$)/2) 
;Z$ FI 

15 OPEN5,8,5,"0:"+Z$+",S,R":INPUT#15,AX, 
BX$ , CX , DX$ : IFAXO0THENG0SUB9000 : RETURN KB 
18 FORI=1T0500:C=I FN 

20 INPUT#5, SU$(I),TA$(I),AN$(I),MN$(I), I 
D$(I),CM$(I) DM 

30 IFSUS( I )="E0F"THENCL0SE5:C=C-1: RETURN EM 
40 NEXT I A 

50 PRINT: PRINT"40 CHARACTERS MAXIMUM": FO 
RI=1T04000: NEXT: PRINT" [CLEAR]": RETURN OJ 
60 PRINT: PRINT" 80 CHARACTER MAXIMUM": FOR 
I=1T04000 : NEXT : PRINT" [CLEAR] " : RETURN NB 
80 OPEN5,8,5,"@0:"+Z$+",S,W":FORI=1TOC HN 

82 PRINT#5 t SU$(I):PRINT#5,TA$(I):PRINT#5 
,AN$(I):PRINT#5,MN$(I):PRINT#5,ID$(I) NF 

83 PRINT#5,CM$(I):NEXT:L=C+1 FM 

84 SU$(I)="EOF":TA$(I)="TTTLE":AN$(I)="A 
UTHOR":MN$(I) s "MAG":ID$(I)="ISSUE" JO 

86 CM$(I)="C0MMENT";PRINT#5,SU$(I):PRINT 
#5,TA$(I):PRINT#5,AN$(I):PRINT#5 I MN$(I) JP 

87 PRINT#5,ID$(I):PRINT#5,CM$(I) IK 

88 CL0SE5: RETURN JK 
100 PRINT" [ CLEAR ] " : POKES 3280 , 6 : P0KE53281 
,0:FORI=lT040:PRINT"[RED][s S] [WHITE] [s 
S]";:NEXT:PRINT"[RED][s S] [WHITE] [s S]"; KI 
110 PRINT" [RVS0N][c A][32"[s C]"][c S][ 
RVSOFF] "; FP 
120 PRINT "[RED][s S] [ WHITE] [s S]";:PRIN 
T"[RED][s S] [WHITE] [s S] [RVS0N][s B][RV 
SOFF] [32"="] [RVSON] [s B] [RVSOFF] [RED][s 

S] [WHITE] [s S]"; HJ 

•130 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF] [5"="] [RVSON] [3"*"] AHOY DO 
CK FILE[3"*"] [RVSOFF] [5"="] [ RVSON ][s B] 
[RVSOFF] [RED][s S] [WHITE] [s S]"; HD 

•140 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [22" "] [RVSOFF 
][5"="][RVS0N][s B][RVSOFF] [RED][s S][W 
HITE][s S]"; ND 

■150 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF] [5"="] [RVSON] [3" "]ADD[4" " 
]-/- RECORD [RVSOFF] [5"="] [RVSON] [s B][ 
RVSOFF] [RED][s S] [WHITE] [s S]"; V AC 

•160 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B] [ RVSOFF ][ 5"="] [RVSON] [3" "JSEARCH - 
/- RECORD [RVS0FF][5"="][RVS0N][s B][RV 
SOFF] [RED][s S] [WHITE] [s S]"; HG 

•170 PRINT" [RED] [s S ] [WHITE] [s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [3" "] DELETE - 
/- RECORD [RVS0FF][5"="][RVS0N][s B][RV 
SOFF] [RED][s S] [WHITE] [s S]"; IP 

•180 PRINT" [RED] [s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF] [5"="] [RVSON] [3" "]MODIFY - 
/- RECORD [RVSOFF] [5"="] [RVSON] [s B][RV 
SOFF] [RED][s S][WHITE][s S]"; HM 

•190 PRINT" [RED] [s S] [WHITE] [s S] [RVSON] 

104 AHOY! 



[s B] [RVSOFF] [5"="] [RVSON] [3" "]S0RT[3" 
"]-/- RECORD [RVSOFF] [5'V] [RVSON] [s B] 
[RVSOFF] [RED][s S] [WHITE] [s S]"; OE 

•200 PRINT" [ RED] [s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF] [5"="] [RVSON] [3" "]LIST[3" 
"]-/- RECORD [RVSOFF] [5"="] [RVSON] [s B] 
[RVSOFF] [RED][s S] [WHITE] [s S]"; MO 

•210 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [3" "JPRINT - 
/- RECORD [RVSOFF] [5"=" ][ RVSON ][s B][RV 
SOFF] [RED][s S][WHITE][s S]"; MM 

•215 PRINT" [ RED] [s S] [WHITE] [s S] [RVSON] 
[s B][ RVSOFF] [5"="] [RVSON] [22" "][ RVSOFF 
][5"="][RVS0N][s B][RVSOFF] [RED][s S][W 
HITE][s S]"; ND 

•220 PRINT" [RED] [s S ] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF] [32"="] [RVSON] [s B] [RVSOFF] 
[RED][s S] [WHITE] [s S]"j DF 

•230 PRINT" [ RED] [s S] [WHITE] [s S] [RVSON] 
[c Q][32"[s C]"][c W] [RVSOFF] [RED][s S] 
[WHITE] [s S]"j IF 

•240 PRINT" [RED] [s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF]"; :PRINTCHR$( 159);: PRINT" [R 
VSON] F1[3"."]ADD[4" "]"; :PRINTCHR$(5) ; PG 

• 250 PRINT" [ 6"=" ] " ; : PRINTCHR$ (159);: PRINT 
" [ RVSON ]F2[ 3". '^SEARCH "; :PRINTCHR$(31) 
;: MP 

•260 PRINT" [WHITE] [RVSON] [s B] [RVSOFF] [R 
ED][s S][WHITE][s S]"; :PRINT"[RED] [s S][ 
WHITE] [s S] [ RVSON] [s B] [ RVSOFF] "; : PRINT 
CHR$( 159);: PRINT" [RVSON] F3[ 3"."] DELETE 
"; BM 

■270 PRINTCHR$(5); :PRINT"[6"="]"; :PRINTCH 
R$(159);:PRINT"[RVS0N] F4[3"."]M0DIFY "; BJ 

•280 PRINTCHR$(31);:PRINT"[WHITE] [RVSON] [ 
s B] [RVSOFF] [RED][s S][WHITE][s S]";:PR 
INT"[RED][s S][WHITE][s S] [RVS0N][s B][ 
RVSOFF]"; :PRINTCHR$(159); EO 

•290 PRINT"[RVSON] F5[3"."]SORT[3" "]";:P 
RINTCHR$(5);:PRINT"[6"="]"; : IL 

•300 PRINTCHR$( 159);: PRINT" [RVS0N]F6[3". 
"]LIST[3" "]";:PRINTCHR$(31);:PRINT"[WHI 
TE] [RVSON ][s B] [RVSOFF] [RED][s S] [WHITE 
][s S][WHITE)"; LJ 

•310 PRINT"[RED][s S] [WHITE] [s S] [RVSON] 
[s B] [RVSOFF]" ;:PRINTCHR$( 159);: PRINT" [R 
VSON] F7[3"."]PRINT "; :PRINTCHR$(5) ; : CE 

•320 PRINT"[6"="]"; :PRINTCHR$(159) ; :PRINT 
" [RVSON]F8[3"."]END[4" "]"; :FRINTCHR$(3 
1);: CL 

•330 PRINT" [WHITE] [RVSON] [s B][ RVSOFF] [R 
ED][s S][WHITE][s S]"; :PRINT"[REDJ[s S][ 
WHITE][s S] [RVSON][c Z][32"[s C]"][c X] 
[RVSOFF]"; GJ 

•340 PRINT" [RED][s S] [WHITE] [s S]";:FORI 
=1T040 : PRINT" [ RED] [s S]"; : PRINT" [WHITE ][ 
s S]";:NEXT EG 

•350 GETRE$:IFRE$=""THEN350 AE 



•360 IFRE$=CHR$(140)THEN680 PL 

•400 F0RI=133T0140:IFRE$=CHR$(I)THEN520 GK 
•410 NEXT IA 

•420 PRINT"[CLEAR]":P0KE53281,0:POKE5328O 

,0:PRINT"[WHITE]":PRINTTAB( 12); "INVALID 

RESPONSE" OL 

•430 PRINT:PRINTTAB(7);"PLEASE PRESS FUNG 

TION KEY" :RE$="":FQRI=1T04000: NEXT FD 
•440 GOT0100 CF 

•450 DATA+++++++++++++++++++++++.+. . .SELE 

CTION MENU + ,+ + BN 

•460 DATA + 1— BUSINESS +,+ 2— DI 

SK OPERATION +,+ 3— EDUCATIONAL + AM 
•470 DATA + 4— FUN AND GAMES +,+ 5— GR 

APHICS +,+ 6— HARDWARE + BM 
•480 DATA + 7— HOME USE +,+ 8— LA 

NGUAGES-MLX +,+ 9— MISCELLANEOUS + IL 
•490 DATA + 10-MUSICAL +,+ 11-SI 

MULATIONS +,+ 12-SOFTWARE + EI 
•500 DATA + 13-TUT0RIAL +,+ 14-UT 

ILITIES 4,+ + BJ 

• 510 DATA+ PLEASE SELECT + .+++H-++++ 

+++++++++++++++ PN 

• 520 PRINT" [ CLEAR ]" : PRINT : P0KE53280 , 7 : POK 
E53281 , 1 : PRINT" [ BLACK ] " : F0RI-1T020: READM 

$ DE 

•530 PRLNTTAB(9);M$:NEXT: RESTORE: INPUT" [9 
"[RIGHT]"]" ;SE$:SE=VAL(SE$) KG 

532 IFSE$="/"THEN440 ME 

535 IFSE<10RSE>14THEN520 LO 

540 IFSE$="1"THENZ$="BUSINESS" AP 
550 IFSE$="2"THENZ$«"DISK OPERATION" EC 
560 IFSE$="3"THENZ$="EDUCATI0NAL" IG 
570 IFSE$="4"THENZ$="FUN & GAMES" FA 
580 IFSE$="5"THENZ$="GRAPHICS" OE 
590 IFSE$="6"THENZ$="HARDWARE" LC 
600 IFSE$="7"THENZ$="H0ME USE" KE 
610 IFSE$="8"THENZ$="LANGUAGES-MLX" GC 
620 IFSE$="9"THENZ$="MISCELLANE0US" AI 
630 IFSE$»"10"THENZ$-"MUSICAL" PJ 
640 IFSE$-"11"THENZ$»"SIMULATI0NS" CK 
650 IFSE$="12"THENZ$="S0FTWARE" BP 
660 IFSE$="13"THENZ$="TUT0RIAL" FJ 
670 IFSE$="14"THENZ$="UTILITIES" EI 
680 RE=ASC(RE$) :0N(RE-132)G0SUB1000,2000 
, 3000 , 4000 , 5000 , 6000 , 7000 , 8000 DH 
690 Z$="XX":DE$="":DE=.:K1=.:G0T0100 EM 
700 rem********************************* 

* EO 
710 REM* WRITTEN BY GLENN LUMPKINS LF 
720 REM* FEB. 1985 KD 
730 rem********************************* 

* EO 

999 REM=====ADD R0UTINE===== OC 

1000 PRINT" [ CLEAR ]";GOSUB10: PRINT" [ CLEAR 
]":C=C+1 HO 
1010 IFK=1THENK=0:RETURN GN 
1020 PRINTTAB(8);"[RVS0N]: SUBJECT OF 



ARTICLE : [ RVSOFF ] " : PRINT" [ BLUE ] " ; : INPUTS 
U$(C) AC 

1025 IFSU$(C)="/"THENRETURN DD 

1 030 I FLEN ( SU$ ( C ) ) >79THENG0SUB60 : PRINT : 
GOTO 1020 PF 

1040 PRINT"[BLACK]":PRINTTAB(8);"[RVS0N] 
: TITLE[4" "]0F ARTICLE : [RVSOFF]" :PRIN 
T"[BLUE]";:INPUTTA$(C) FA 

1045 IFrA$(C)="/"THEN1020 GG 

1050 I FLEN (TA$ (C) ) >39THENG0SUB50 : PRINT : G 
0T01040 LH 

1060 PRINT" [ BLACK ]" : PRINTrAB(8) ; "[RVSON ] 
: AUTHOR'S [8" "]NAME : [RVSOFF ]": PRINT" [B 
LUE]";:INPUTAN$(C) I J 

1065 IFAN$(C)="/"THEN1040 GC 

1070 IFLEN(AN$(C)»39THENGOSUSB50: PRINT: 
G0T01060 MO 

1080 PRINT" [ BLACK ] " : PRINTfAB(8) ; "[RVSON ] 
:[SS]NAME[5" "]0P MAGAZINE : [RVS0FF]":PR 
INT" [BLUE]"; :INPUTMN$(C) MM 

1085 IFMN$(C)='7"THEN1060 JM 

1090 IFLEN(MN$(C))>39THENG0SUB50: PRINT: G 
OT01080 AN 

1100 PRINT" [ BLACK] ":PRINTrAB(8) ; "[RVSON] 
: ISSUE # / PAGE / DATE : [RVSOFF]": PRINT" 
[BLUE]";:INPUTID$(C) AO 

1105 IFID$(C)="/"THEN1080 HI 

1110 IFLEN(ID$(C))>39THENGOSUSB50: PRINT: 
GOTO 1100 GH 

1120 PRINT"[BLACK]":PRINTTAB(8); "[RVSON] 
: COMMENTS OR [3" "] NOTES : [RVSOFF ]":PRI 
NT"[BLUE]";:INPUTCM$(C) IP 

1130 IFLEN(CM$(C))>79 THENG0SUB60: PRINT: 
GOT01120 CO 

1135 IFCM$(C)="/"THEN1100 HI 

1 140 PRINT" [ BLACK ] " : PRINTTAB( 5 ) ; "->PRESS 
ANY KEY TO CONTINUED" EG 

1150 GETDE$:IFDE$=""THEN1150 BO 

1160 PRINT"[CLEAR]":PRINTTAB(20-LEN(Z$)/ 
2);Z$:PRINT BG 

1170 PRINTTAB(5);"[ RVSON ][C][RVS0FF]0NTI 
NUE OR [ RVSON] [W][RVSOFF]RITE TO DISK" OF 
1180 GETDE$:IFDE$=""THEN1180 CD 

1185 IFDE$="/"THENRETURN 10 

1190 IFDE$<>"C"ANDDE$O"W"THEN1180 DO 
1200 IFDE$="C"TUENPRINT"[CLEAR]":C=C+1:G 
0T01020 BL 

1205 PRINT :PRINTTAB( 15); "WRITING TO":PRI 
NT:PRINTTAB(20-LEN(Z$)/2);Z$ ED 

1210 G0SUB80: RETURN MF 

1999 REM====DELETE ROUTINE======= DN 

2000 PRINT" [CLEAR]" : PRINT: PRINT : PRINT PH 
2005 PRINT" DELETE [RVSON ][E] [RVSOFF ]NT 
IRE FILE OR [RVSON][0][RVSOFF]NE RECORD" GE 
2010 GETDE$:IFDE$=""THEN2010 BO 
2015 IFDE$="/"THENRETURN 10 
2020 IFDE$<>"E"ANDDE$O"0"THEN2000 FI 
2030 IFDE$="E"THENG0SUB9200: RETURN EP 
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•2040 FL=1:G0SUB7000:FL=.; RETURN JD 

•2999 REM—SORT PARTI—™ PK 

• 3000 G0SUB10 : PRINT" [ CLEAR ] " : F0RI=1T05 : PR 
INT: NEXT: PRINTTABU5); "SORT BY": PRINT JE 
•3010 F1=1:GOSUB5010:IFDE$="/"THENRETURN OF 

• 3020 IFDE$="S"THENK1=1 :G0SUB9300:GOTO307 

ED 

• 3030 IFDE$="T"THENK1=2 : G0SUB9300 ; G0T0307 

ED 

• 3040 IFDE$= ,, A"THENK1=3 : G0SUB9300 ; G0T0307 

GP 

•3050 IFDE$="M"THENK1=4:GOSUB9300:GOT0307 
LK 

• 3060 IFDE$="I"THENK1=5 : G0SUB9300 : G0T0307 

IF 

•3070 K 1=. : PRINT" [CLEAR ]":PRINTTAB( 8); "ON 

E MOMENT WRITING SORTED" : PRINT 00 
•3080 PRINTTAB(20-LEN(Z$)/2);Z$ KL 
•3090 G0SUB80: RETURN MF 

•3999 REM=====PRINT RECORD/ FILE===== LP 
•4000 PRINT"[CLEAR]":PRINTTAB(8);"[RVS0N] 

[Ej[RVSOFF]NTIRE OR [RVSON] [0][RVSOFF]NE 

RECORD" LD 

•4010 GETDE$:IFDE$=""THEN4010 BM 

•4020 IFDE$="/"THENRETURN 10 

•4030 IFDE$<>"E"ANDDE$O"0"THEN4010 GB 

• 4040 IFDE$="0"THENK2=1 : G0SUB7000 : IFK2= .T 
HENRETURN NI 

•4050 IFDE$="E"THENGOSUB10:GOT04200 JH 

•4060 0PEN3,4:XX$="[s T][17"="]is Y]":PRI 

NT#3,Z$;" RECORD NUMBER";X:PRINT#3 ML 

•4070 PRINT#3:PRINT#3 ( XX$:PRINT#3,TAB(3); 

"S U B J E C T":PRINT#3 FH 

• 4080 PRINT#3 , SU$( I ) : PRINT#3 : PRINTS , XX$ : 

PRINT#3,TAB(5);"T IT L E":PRINT#3 HD 

•4090 PRINT#3, TA$( I) : PRINTS: PRINT#3,XX$: 

PRINTS, TAB(4);"A U T H R":PRINT#3 JC 

•4100 PRINT#3 , AN$( I) : PRINT#3 : PRINT#3 , XX$ : 

PRINT#3,TAB(2);"M A G A Z I N E" PG 

■4110 PRINT#3:PRINT#3,MN$(I):PRINT#3:PRIN 

T#3,XX$:PRINT#3 t TAB(5);"I S S U E" NH 

•4120 PRINT#3 :PRINT#3,ID$( I): PRINTS :PRIN 

T#3,XX$:PRINT#3,TAB(3);"C M M E N T" BJ 

• 4130 PRINTS : PRINT#3 , CM$( I ) : CL0SE3 : RETUR 

N FL 

•4199 REM=====PRINT ENTIRE RECORD===== GL 
•4200 PRINT"[CLEAR]":PRINTrAB(14);"N0W PR 

INTING" : PRINT :PRINTTAB(20-LEN(Z$)/2);Z$ OJ 
•4210 XX$="[s T][17"="][s Y]":0PEN3,4:PRI 

NT;PRINT"RECORD NUMBER" AH 

•4230 PRINT#3,Z$;" FTLE":PRINT#3 GH 

• 4240 FORI=1TOC : PRINTI : PRINT#3 : PRLW3 , "= 
=>RECORD NUMBER";I;" <==":PRINT#3 AA 

•4250 PRINT#3,XX$:PRINT#3,TAB(3);"S U B J 
E C T":PRINT#3:PRINT#3,SU$(I):PRINT#3 PD 

•4260 PRINT#3,XX$:PRINT#3,TAB(5);"T I T L 
E" : PRINT#3 : PRINT#3 , TA$ ( I ) : PRINT#3 PE 

•4270 PRINT#3,XX$:PRINT#3,TAB(4);"A U T H 
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R":PRINT#3:PRINT#3,AN$(I):PRINT#3 ME 
4280 PRINT#3,XX$:PRINT#3,TAB(2);"M A G A 

Z I N E":PRINT#3:PRINT#3,MN$(I) EO 
4290 PRINTS :PRINT#3,XX$:PRINT#3 t TAB( 5); 
"I S S U E":PRINT#3:PRINT#3,ID$(I) BP 
4300 PRINT#3:PRINT#3,XX$:PRINT#3,TAB(3); 
"C M M E N T":PRINT#3:PRINT#3,CM$(I) MI 
4310 PRINT#3:NEXT:CLOSE3: RETURN GC 

4999 REM=====SEARCH ROUTINE===== AA 

5000 PRINT" [CLEAR] " : F0RI=1T05 : PRINT: NEXT 
:PRINTTAB( 15); "SEARCH BY": PRINT HN 
5010 PRINT:PRINTTAB(15);"[RVS0N][S][RVSO 
FF]UBJECT": PRINT: PRINTTABC 15); "[RVSON ][T 
][RVSOFF]ITLE": PRINT CG 
5020 PRINTTAB( 15) J " [ RVSON ] [ A ] [ RVSOFF ]UTH 
OR" : PRINT : PRINTTABC 15) ; " [ RVSON ] [M] [ RVSOF 
F]AGAZINE": PRINT EK 
5030 PRINTrAB(15);"[RVS0N][I][RVS0FF]SSU 

E BL 

5040 GETDE$:IFDE$=""THEN5040 EC 

5045 IFDE$="/"THENRETURN 10 

5050 IFDE$<>"S"ANDDE$<>"T"ANDDE$<>"A"AND 
DE$<>"M"ANDDE$O"I"THEN5000 IC 

5055 IFFU1THENF1=.: RETURN KC 

5060 IFDE$="S"THENPRINT" [ CLEAR ] " : F0RI=1T 
04: PRINT: NEXT :GOT05090 PL 

5070 IFDE$="T"THENPRINT"[CLEAR]":F0RI=1T 
04: PRINT: NEXT: G0TO51 10 AH 

5075 IFDE$="A"THENPRINT" [CLEAR ] " : F0RI=1T 
04:PRINT;NEXT;G0T05130 OM 

5080 IFDE$="M"THENPRINT" [CLEAR ] " : F0RI=1T 
04:PRINT:NEXT;GOT05150 GC 

5085 IFDE$="I"THENPRINT" [ CLEAR ] " : F0RI=1T 
04:PRINT:NEXT:GOT05170 FA 

5090 PRINT" [CLEAR]": PRINTTABC 13); "ENTER 
" ; : PRINT" [ BLUE] " ; : PRINT" [ SUBJECT] " : PRINT 
"[BLACK]" GG 

5100 INPUTS$:G0SUB10:GOTO5300 LH 

5110 PRINT"[CLEAR]": PRINTTABC 13); "ENTER 
"; : PRINT" [ BLUE]";: PRINT" [TITLE]" : PRINT" [ 
BLACK]" FN 

5120 INPUTT$:GOSUB10:G0TO5300 NE 

5130 PRINT" [CLEAR]" : PRINTTABC 13) ; "ENTER 
" ; : PRINT" [ BLUE ] " ; : PRINT" [ AUTHOR ] " : PRINT" 
[BLACK]" LO 

5140 INPUTA$:G0SUB10:GOTO5300 JB 

5150 PRINT"[CLEAR]":PRINTTABC 12); "ENTER 
";: PRINT" [ BLUE ]";: PRINT" [ MAGAZINE ]": PRIN 
T"[BLACK]" AL 

5160 INPUTM$:GOSUB10:GOT05300 NF 

5170 PRINT"[CLEAR]": PRINTTABC 13); "ENTER 
" ; : PRINT" [ BLUE ] " ; : PRINT" [ ISSUE ] " : PRINT" [ 
BLACK]" JM 

5180 INPUTI$:GOSUB10:GOT05300 MJ 

5300 PRINT" [CLEAR]": PRINT" #";TAB(10) ;"0 
NE MOMENT SEARCH I NG": PRINTTABC 20-LENCZ$) 
/2);Z$ FE 

5310 FORI^ITOC JM 



• 5320 IFDE$="S"ANDLEFT$ ( S$ , LEN( S$ ) )=LEFT$ 
(SU$(I),LEN(S$))THENPRINTI;SU$(I):K=K+1 JB 

•5330 IFDE$="T"ANDLEFT$(T$,LEN(T$))=LEFT$ 

(TA$(I),LEN(T$))THENPRINTI;TA$(I):K=K+1 LF 
•5340 IFDE$="I"ANDLEFT$(I$,LEN(1$))=LEFT$ 

(ID$(I),LEN(I$))THENPRINTI;ID$(I):K=K+l FF 
•5350 IFDE$="M"ANDLEFr$(M$,LEN(M$))=LEFT$ 

(MN$(I) ,LEN(M$))THENPRINTI;MN$(I) :K=K+1 BB 
•5360 IFDE$="A"ANDLEFT$(A$,LEN(A$))=LEFT$ 

(AN$(I),LEN(A$))THENPRINTI;AN$(I):K=K+1 KB 
•5370 IFK=15THENK=0; PRINT; PRINTTAB(4); "CO 

RRECT RECORD FOUND [RVSON][Y][RVSOFF] OR 

[RVSON][N] [RVSOFF ]":Y=1 GG 

•5380 IFY=1THENGETRE$:IFRE$=""THEN5380 NN 

■5385 IFRE$="/"THENRETURN LM 

•5390 IFY=lANDRE$<>"N"ANDRE$O"Y"THEN5380 DK 

• 5400 IFRE$="N"THENPRINT" [ CLEAR ]": Y= .: RE$ 
="":NEXT:GOTO5440 KI 

•5410 IFRE$= S "Y"THENY=,:G0T05500 NI 
•5415 IFC=IANDK=>1THENK=15:G0T05370 AE 
•5420 NEXT: PRINT FO 

•5430 PRINTTAB( 11) {"RECORD NOT FOUND" :PRI 

NT PA 

•5440 PRINTTAB(10)"[RVS0N][A][RVS0FF]B0RT 

OR [RVSON][R][RVSOFF]ETRY GN 

•5450 GETDE$:IFDE$=""THEN5450 BN 

•5460 IFDE$o"/"ORDE$»"A"THENRETURN EK 
•5470 IFDE$="R"THENDE$="":G0T05000 FO 
■ 5480 IFDE$O"A"ANDDE$<>"R"THEN5450 PF 
•5500 PRINT :PRINTTAB( 13) {"SELECT RECORD": 

PRINT" [ BLUE ] " ; : INPUTRN : IFRN>CTHEN5500 KB 

• 5510 PRINT" [ BLACK ] " : PRINT" [CLEAR ] " : I=RN : 
FA=1:GOT07010 DD 

•5999 REM— —MODIFY RECORD====== LN 

•6000 F4=1:G0SUB7000 PP 

•6010 PRINTTAB(7);"[BLACK]";"[RVS0N][1. S 
UBJECT OF ARTICLE ] [RVSOFF]": PRINT" [BLUE 
]";SU$(I):PRINT CN 

•6020 PRINTTAB(7);"[BLACK]";"[RVS0N][2. T 
ITLE OF ARTICLE! 3" "] ] [RVSOFF] ": PRINT" [B 
LUE]";TA$(I):PRINT AB 

•6030 PRINTTAB(7);"[BLACK]";"[RVSON][3. A 
UTHOR'S NAME[6" "]] [RVSOFF]" : PRINT" [BLUE 
]";AN$(I): PRINT AN 

•6040 PRINTTAB(7);"[BLACK]";"[RVS0N][4. N 
AME OF MAGAZINE [3" "]] [RVSOFF]" :PRINT"[B 
LUE]";MN$(I): PRINT PM 

•6050 PRINTTAB(7);"[BLACK]";"[RVSON][5. I 
SSUE #/P AGE/DATE ][ RVSOFF]": PRINT" [BLUE 
]";ID$(I):PRINT DO 

•6060 PRINTTAB(7);"[BLACK]";"[RVSON][6. C 
OMMENT OR NOTE [4" "]] [RVSOFF ]":PRINT"[BL 
UE]";CM$(I):PRINT BG 

•6070 PRINTTAB(7);"[BLACK]";"[RVS0N][7. W 
RITE TO DISK [6" "]][ RVSOFF]": PRINT OC 

•6080 PRINTTAB(7);"[3"="]>CHANGE WHICH LI 
NEW BO 

•6090 GETDE$:IFDE$=""THEN6090 EK 



•6100 DE=VAL(DE$):IFDE$="/"THENRETURN NL 
•6110 IFDE<10RDE>7THEN6090 LO 

•6120 IFDE=7THENG0SUB80: RETURN HO 

•6130 IFDE=1THENPRINT"[CLEAR]":PRINTTAB(5 

);"[RVS0N]: SUBJECT OF ARTICLE : [RVSOFF] 

": PRINT: PRINT" [BLUE]"; II 

•6140 IFDE=lTHENPRINTSU$(I):PRINT:PRINT n E 

NTER NEW VALUE":PRINT:INPUTSU$(I) NH 
•6150 IFLEN(SU$(I))>79THENG0SUB60:PRINT:G 

OTO6130 GM 

•6155 IFSU$(I)="/"THENRETURN GN 

•6160 IFDE=2THENPRINT ,, [CLEAR]":PRINTTAB(5 

);"[RVS0N]: TITLE OF ARTICLE : [RVSOFF]": 

PRINT: PRINT" [BLUE]"; JG 

•6170 IFDE=2THENPRINTTA$(I) : PRINT: PRINT"E 

NTER NEW VALUE" : PRINT :INPUTTA$( I) MC 

• 6180 IFLEN (TA$ ( I) ) >39THENGOSUB50: PRINT : G 
OT06160 DN 

•6185 IFTA$(I)= ! '7"THENRETURN GO 

•6190 IFDE=3THENPRINT"[CLEAR]":PRINTTAB(5 
);"[RVSON]: AUTHOR'S NAME : [RVSOFF] ":PRI 
NT:PRINT"[BLUE]"; HE 

• 6200 IFDE=3THENPRINTAN$( I) : PRINT : PRINT"E 
NTER NEW VALUE" : PRINT :INPUTAN$( I) FL 

• 6210 IFLEN ( AN$( I) )>39THENG0SUB50 : PRINT : G 
OT06190 01 

•6215 IFAN$(I)="/"THENRETURN DA 

• 6220 IFDE=4THENPRINT" [CLEAR ] " : PRINTIABC 5 
);"[RVSON]: NAME OF MAGAZIZNE :[ RVSOFF]" 

: PRINT: PRINT" [BLUE]"; EE 

•6230 IFDE=4THENPRINTMN$(I) : PRINT: PRINT"E 
NTER NEW VALUE": PRINT :INPUTMN$(I) KG 

•6240 IFLEN(MN$(I))>39THENGOSUB50:PRINT:G 
OT06220 GM 

•6245 IFMN$(I)="/"THENRETURN EE 

■ 6250 IFDE=5THENPRINT" [ CLEAR ] " : PRINTTAB( 5 
);"[RVSON]: ISSUE / PAGE / DATE : [RVSOFF 
]": PRINT: PRINT" [BLUE]"; I A 

•6260 IFDE=5THENPRINTID$(I) : PRINT: PRINT"E 
NTER NEW VALUE": PRINT: INPUTID$( I) JB 

•6270 IFLEN(ID$(I))>39THENG0SUB50:PRINT:G 
0T06250 DP 

•6275 IFID$(I)="/"THENRETURN DG 

• 6280 IFDE=6THENPRINT"[ CLEAR ] " : PRINTTAB(5 
);"[RVSON]t COMMENTS OR NOTES :":PRINT:P 
RINT"[BLUE]"; BL 

•6290 IFDE=6THENPRINTCM$(I):PRINT:PRINT"E 

NTER NEW VALUE": PRINT :INPUTCM$( I) AO 
•6300 IFLEN(CM$(I))>70THENGOSUB60:PRINT,G 

0TO6280 DP 

•6305 IFCM$CI)='7"THENRETURN CF 

•6310 PRINT"[CLEAR]":G0T06010 PO 

•6999 REM====LIST + DELETE ROUTINE ==,==== 

CE 
•7000 PRINT"[CLEAR]":GOSUB10:PRINT"[ CLEAR 

]":F0RI=1T0C:PRINT:PRINT OB 

•7010 PRINTTAB(9);"[RVS0N][:SUBJECT OF AR 

TICLE:] [RVSOFF]" : PRINT" [ BLUE]" ;SU$( I) :PR 

AHOY! 107 



INT BM 

•7020 PRINTTAB(9); "[BLACK] [RVSON] [: TITLE 
OF ARTICLE : ] [ RVSOFF ] " : PRINT" [ BLUE ] " ; TA 
$(I):PRINT MJ 

• 7030 PRINTTAB( 9) ; " [ BLACK ] [ RVSON ] [ : AUTHOR 
'S NAME [5" "]:] [RVSOFF]" : PRINT" [BLUE]"; A 
N$(I):PRINT MI 

■7040 PRINTTAB(9);"[ BLACK] [RVSON] [:NAME 
F MAGAZINE : ] [ RVSOFF ] " : PRINT" [ BLUE ] " ; MN 
$(I):PRINT PI 

•7050 PRINTTAB(9);"[BLACK] [RVSON] [: ISSUE 
#/PAGE/DATE : ] [RVSOFF]" : PRINT" [BLUE]"; ID 
$( I): PRINT BD 

• 7060 PRINTTAB(9) ; " [ BLACK ] [ RVSON } [ : COMMEN 
T OR NOTES :] [RVSOFF]": PRINT" [BLUE]"; CM 
$(I):PRINT OC 

• 7065 IFFA=1THENPRINT: PRINT" [ BLACK ] " ;TAB( 
8); "PRESS ANY KEY TO CONTINUE" AH 

• 7070 IFFA=1THENGETDE$ : IFDE$=""THEN7070 BK 
•7075 IFDE$="/"THENRETURN 10 
■7080 I FFA=1 THEN FA=.: RETURN MC 
•7090 IFFL=1THENPRINT"[ BLACK ]";TAB(5) ;"DE 

LETE THIS RECORD [RVSON] [Y] [RVSOFF] OR [ 
RVSON] [N] [RVSOFF]" HM 

•7100 IFFL=1THENGETDE$:IFDE$=""THEN7100 AH 
•7110 IFFL=1ANDDE$="Y"THEN7180 DI 

• 7120 IFFL=1THENPRINT" [ CLEAR ] " : NEXTI : RETU 
RN ML 

• 7125 IFF4=1THENPRINT" [ BLACK ] " ; TAB( 5) ; "MO 
DIFY THIS RECORD [RVSON ][Y] [RVSOFF] OR [ 
RVSON] [N] [RVSOFF]" :G0T07140 AH 

•7130 PRINT" [ BLACK ]";TAB( 7); "CONTINUE PAG 

ING [RVS0N][Y][RVS0FF] OR [RVSON][N][RVS 

OFF]" AF 

•7140 GETDE$ : IFDE$=""THEN7140 EB 

•7145 IFDES="/"THENRETURN 10 

•7150 IFDE$O"Y"ANDDE$O"N"THEN7140 CF 
•7155 IFF4=1ANDDE$="N"THENPRINT"[CLEAR]": 

NEXT:RETURN EB 

•7160 IFDE$="N"THENRETURN LD 

•7165 IFF4=1ANDDE$="Y"THENF4=. : PRINT" [CLE 

AR]":RETURN EC 

■7170 PRINT" [ CLEAR]": NEXT :K2=.: RETURN KJ 
•7180 SU$(I)="DELETE":0PEN5,8,5,"@0:"+Z$4 

",S,W": PRINT" [CLEAR]" OF 

•7190 PRINTTAB(4);"0NE MOMENT DELETING RE 

CORD #";I:F0RI=1T0C CP 

•7200 IFSU$(I)="DELETE"THENC=C-1:NEXT BI 
•7210 PRINT#5,SU$(I)P$TA$(I)P$AN$(I)P$MN$ 

(I)P$ID$(I)P$CM$(I) KH 

•7220 NEXT:I=C+1:SU$(I)="E0F":TA$(I)="TIT 

LE":AN$(I)="AUTHOR":MN$(I)="MAG" EH 
•7230 ID$(I)="ISSUE":CM$(I)="COMMENT" OA 
•7240 PRINT#5,SU$(I)P$TA$(I)P$AN$(I)P$MN$ 

(I)P$ID$(I)P$CM$(I) : CLOSES :FL=.: RETURN HB 
•7999 REM====END=== CC 

•8000 PRINT" [CLEAR] ":F0RX=1T01 2: PRINT :NEX 

T:PRINTTAB(9);"IT'S BEEN A PLEASURE" CO 

108 AHOY! 



8010 FORI=1T015:POKE53281,I+1:FOR X=1T02 

00 : NEXTX : NEXTI : P0KE53281 , 6 

8020 PRINT"[CLEAR]":PRINT"[HOME]":END 

8999 REM====== INITIALIZE FILE====« 

9000 PRINT"[CLEAR]":PRINTTAB(5);"THIS FI 
LE , ";Z$; ,M HAS NOT BEEN INITIALIZED ":C 
L0SE5 

9010 PRINT"0R YOU DO NOf HAVE THE CORREC 
T DISK IN THE DRIVE !" 
9020 PRINT: PRINTTAB(8);" [RVSON] [C][RVSOF 
F]ONTINUE -/- [RVSON ][R] [RVSOFF] ETURN" 
9030 GETDE$ :IFDE$=""T1IEN9030 
9035 I FDE$="/"THENK=1 : RETURN 
9040 IFDE$="R"THENK=1 : RETURN 
9050 IFDE$<>"R"ANDDE$O"C"THEN9030 
9060 0PEN5 , 8 , 5 , "0 : "+Z$+" , S , W" : PRINT" [ CLE 
AR]":PRINTTAB( 14); "INITIALIZING" 
9070 PRINT; PRINTTAB(20-LEN(Z$)/2) ;Z$ 
9080 SU$(l)="EOF":TA$(l)="'nTLE":AN$(l)= 
"AUTHOR" : MN$ ( 1 )="MAG" : ID$( 1 )="ISSUE" 
9090 CM$(1)="C0MMENT" 

9100 PRINT#5, SU$(1)P$TA$(1)P$AN$(1)P$MN$ 
(1)P$ID$(1)P$CM$(1):CL0SE5:RETURN 

9199 REM=====DELETE THE ENTIRE FILE ==== 

9200 PRINT" [ CLEAR ] " : FORI=1T010 : PRINT : NEX 
T:PRINTTAB(11);"!! ARE YOU SURE !!" 
9210 PRINT: PRINTIAB(15); "[RVSON] [Y][RVSO 
FF] OR [RVSON] [N] [RVSOFF]" 
9220 GETDE$ : IFDE$=""THEN9220 

I FDE$="/ "THEN RETURN 



A A 
FO 
PG 



9225 
9230 
9240 



IFDE$O"Y"ANDDE$<>"N"THEN9220 



I FDE$="N "THEN RETURN 
9250 PRINT: PRINTTABC 10) ;"ONE MOMENT DELE 
TING":PRINT:PRINTTAB(20-LEN(Z$)/2);Z$ 
9260 0PEN5 ,8,5, "@0: "+Z$+" , S , W" : G0SUB9080 
: RETURN 

9299 REM=====S0RT PART2===== 

9300 PRINT"[CLEAR]":PRINTTAB(9);"0NE MOM 
ENT NOW SORTING": PRINT 

9310 PRINTTABC 20-LEN(Z$)/2) ;Z$ 

9320 0NK1GOTO9 350, 9400 , 9450 , 9500, 9550 

9350 F=.:F0RJ=1T0C-1 

9360 IFSU$(J)<=SU$<J+1)THEN9380 

G0SUB10000 

NEXT:IFF=1THEN9350 

RETURN 

F=.:F0RJ=1T0C-1 
9410 IFTA$(J)<=TA$(J+1)THEN9430 
9420 GOSUB 10000 

NEXT:IFF=1THEN9400 

RETURN 

F=.:F0RJ=1T0C-1 

IFAN$( J)<=AN$( J+l )THEN9480 

GOSUB 10000 

NEXT:IFF=1THEN9450 

RETURN 

F=.:F0RJ=1T0C-1 



9370 
9380 
9390 
9400 



9430 
9440 
9450 
9460 
9470 
9480 
9490 
9500 



PL 

PL 

OE 
GH 
PM 
EF 
PN 

PE 
GB 

BG 
DC 

PG 

JA 

JM 

KK 
GC 
10 
PC 

LD 

DO 

BJ 
KP 

EC 
KL 
EO 
MI 
PO 
II 
ND 

m 

MI 
NA 
II 
NN 
IM 
MI 
OJ 
II 
NE 
IM 
MI 



IMPORTANT! Letters on white background are Bug Repellent line codes. Do not enter theml Pages 85 and 66 explain these codes 
llVlrUll IMIl I I and provide oiher essential information on entering .Mojfi programs. Refer lolhese pages before entering any programs! 

90 02 E6 15 C8 Bl FB 4C 61 

E4 CO 20 53 CO A5 3D C5 9A 

14 DO 13 A5 3E C5 15 DO A 7 

OD A9 20 20 D2 FF A 5 FD 95 

AA A5 FE 20 CD BD AO 00 CB 

Bl FB C9 2C FO 91 4C 23 CD 



•9510 IFMN$(J)<=MN$(J+1)THEN9540 


NC 


C110 


•9520 G0SUSB10000 


PP 


C118 


•9530 NEXT:IFF=1THEN9500 


NK 


CI 20 


•9540 RETURN 


IM 


C128 


•9550 F=.:F0RI=1T0C-1 


MH 


C130 


•9560 IFII)$(J)<=ID$(J+1)THEN9580 


NK 


C138 


•9570 G0SUB10000 


II 


CI 40 


■9580 NEXT:IFF=1THEN9550 


NF 


4WA 


•9590 RETURN 


IM 


STA 



CO 01 



•10000 S1$=SU$(J):T1$=TA$(J);A1$=AN$(J):M 

1$=MN$(J):I1$=ID$(J):C1$=CM$(J) PB 

•10010 SU$(J)=SU$(J+1):SU$(J+1)=S1$:TA$(J 

)=TA$(J+1):TA$(J+1)=T1$:F=1 OJ 

•10020 AN$(J)=AN$(J+1):AN$(J+1)=A1$:MN$(J 

)=MN$(J+1):MN$(J+1)=M1$ MO 

•10030 II)$(J)=ID$(J+1):ID$(J+1)=I1$:CM$(J 

)=CM$(J+1):CM$(J+1)=C1$: RETURN KA 



GO-LISTER* 

FROM PAGE 73 



First by) 


e: COOO 


Last 


byte 


: C140 


SYS 


to start: 49152 


C000: 


A9 


01 


A2 


04 


AO 


FF 


20 


BA 


CC 


COOS: 


FF 


A9 


00 


20 


BD 


FF 


20 


CO 


70 


CO 10: 


FF 


A2 


01 


20 


C9 


FF 


AO 


08 


46 


C018: 


84 


46 


AO 


01 


84 


45 


4C 


87 


22 


CO 20: 


CO 


AO 


00 


Bl 


FB 


C9 


00 


FO 


E9 


C028: 


41 


C9 


22 


DO 


06 


A9 


01 


45 


1C 


C030: 


43 


85 


43 


A5 


43 


C9 


01 


FO 


EO 


C038: 


12 


Bl 


FB 


C9 


89 


FO 


28 


C9 


2E 


C040: 


8D 


FO 


24 


C9 


A7 


FO 


20 


C9 


2F 


C048: 


CB 


FO 


1C 


AO 


01 


20 


53 


CO 


F6 


CO 50: 


4C 


23 


CO 


CO 


00 


FO 


OF 


A9 


EA 


C058: 


01 


18 


65 


FB 


90 


02 


E6 


FC 


49 


CO 60: 


85 


FB 


88 


4C 


53 


CO 


60 


4C 


77 


C068: 


CF 


CO 


AO 


02 


Bl 


FB 


C9 


00 


13 


C070: 


FO 


14 


AO 


03 


Bl 


FB 


85 


FD 


4A 


C078: 


C8 


Bl 


FB 


85 


FE 


C8 


20 


53 


AF 


C080: 


CO 


84 


43 


4C 


23 


CO 


88 


Bl 


73 


C088: 


45 


C9 


00 


FO 


34 


C8 


Bl 


45 


7C 


C090: 


85 


3D 


C8 


Bl 


45 


85 


3E 


AO 


77 


C098: 


00 


Bl 


45 


AA 


C8 


Bl 


45 


85 


7F 


COAO: 


46 


8A 


85 


45 


A9 


00 


85 


FB 


67 


C0A8: 


A9 


08 


85 


FC 


A9 


OD 


20 


D2 


86 


COBO: 


FF 


A5 


3D 


AA 


A5 


3E 


20 


CD 


10 


C0B8: 


BD 


A9 


3A 


20 


D2 


FF 


4C 


72 


OC 


COCO: 


CO 


A9 


OD 


20 


D2 


FF 


20 


CC 


18 


C0C8: 


FF 


A9 


01 


20 


C3 


FF 


60 


AO 


58 


CO DO: 


00 


84 


14 


84 


15 


C8 


Bl 


FB 


79 


C0D8: 


C9 


20 


FO 


F9 


C9 


AO 


FO 


F5 


FE 


COEO: 


C9 


A4 


FO 


Fl 


C9 


30 


30 


32 


8E 


C0E8: 


C9 


3A 


10 


2E 


E9 


2F 


85 


07 


DO 


COFO: 


A5 


15 


85 


22 


A5 


14 


OA 


26 


3D 


C0F8: 


22 


OA 


26 


22 


65 


14 


85 


14 


80 


CI 00: 


A5 


22 


65 


15 


85 


15 


06 


14 


F6 


C108: 


26 


15 


A5 


14 


65 


07 


85 


14 


03 


*To enter G 


o- lister, 


you 


must use Fi 


ankspeed (see 



T& 
FILE ADDRESS 

FROM PAGE 17 



2 PRINT" [ CLEAR ][ DOWN ][7" "] [RVSON] START 
& END FILE ADDRESS": REM BY DAVE SMART DM 
4 FORI=828T0904:READA:P0KEI,A;NEXT KH 
6 0PEN15,8,15,"I0" 00 

8 INPUT" [3" [DOWN]"] FILE TO CHECK. ";F$:P 
RINT DE 

10 "PMSD-3" SEQ OG 

12 P0KE251,P-S*256:P0KE252,S CI 

14 PRINT" ";F$ KC 

16 0PEN1,8,2,"0:"+F$ GO 

18 GET#1,A$,B$ AK 

20 D=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)) IL 
22 INPUT#15,E,E$,E1,E2 ED 

24 IFE>OTHENPRINT: PRINT, E$:CL0SE1:CL0SE1 
5: END KL 

30 PRINTTABC 15) "START ADDR.(DEC)"D JH 
32 W=D: G0SUB54 HC 

34 PRINTTABC 26) "(HEX) "H$ NJ 

36 PRINT" [DOWN] PLEASE WAIT [3"."]" I J 
38 SYS831 DN 

40 F=P:P=PEEK(251)+PEEK(252)*256:T=P CN 
42 Z$=RIGHT$("[3" "]"+STR$(T-F) ,5) DH 
44 PRINT" [UP] [18" "]"Z$;" BYTES OF MEM. [ 
DOWN]" JP 

46 Z=VAL(Z$) KH 

48 PRINTTABC 17) "END ADDR.(DEC)"Z+W:D=W+Z 
:GOSUB54 AN 

50 PRINTTABC 26) "(HEX) "H$ NJ 

52 GOT060 PG 

54 H$="":M=4096:N=3:IFD<256THENM=16:N=1 AL 
56 FORH=OTON:C=INTCD/M) :D-D-C*M:M-M/16:C 
=C+48 : IFC>57THENC=C+7 DA 

58 H$=H$+CHR$(C): NEXT: RETURN BL 

60 CL0SE1:CL0SE15 BB 

62 PRINT" [DOWN] [DOWN ]D0 YOU WISH TO CHEC 
K ANOTHER FILE (Y/N)" NH 

64 GETA$:IFA$=""THEN64 GB 

66 IFA$<>"Y"THENEND DI 

68 IFA$="Y"THEN6 DG 

70 DATA 76,96,3,162,1,32,198,255,32 NH 
72 DATA 228,255,160,0,145,251,230 OB 
74 DATA 251,208,8,230,252,165,252 HA 
76 DATA 201,208,240,6,165,144,41,64 KD 

page 86). /U/0F/ 109 



IMPORTANT! Letters on wnile background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
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•78 DATA 240,231, 76, 204,255,162,1, 32 
•80 DATA 201,255,162,54,134,1,160,0 
-82 DATA 177,251,32,210,255,230,251 
•84 DATA 208,2,230,252,165,251,197,253 
•86 DATA 208,239,165,252,197,254,208 
•88 DATA 233,162,55,134,1,76,204,255 



KC 
DB 
MK 
DM 
FL 
EF 



FROM PACE 29 



*0 G0T090 PP 

•2 D=INT(RND(1)*9)+1 OB 

•3 E=INT(RND(1)#9)+1:I=D*E:PRINT"[H0ME][2 
2"[DOWN]"] [7"[RIGHT]" ]";Di "[RVSON] [s V]" 
;E; EM 

• 4 X=2 : Q=0 : F0RT=lTO7 : POKEU , 241 : F0RTT=1T03 
00:NEXT:POKEU,0:FORTT=1T050:NEXT:NEXT:GO 
T034 GC 

■8 IFQ=ITHEN18 0G 

•9 IFQOITHEN70 JO 

•14 POKEA,G:POKEA+B,2:Q=Q+l:FORT=170T0135 
STEP-1 : POKEU+1 ,T : NEXT : POKEU+1 , 0: POKEA , 32 
:G0T040 LH 

•18 K=K+1: PRINT" [ CLEAR ][ BLACK ][ RVSON ]GREA 
T[3" ! " ]" : PRINT" [ DOWN ] [DOWN ] [RED] [RVSON ]C 
ORRECT ANSWER !": PRINT" [ DOWN ] [ DOWN ] " ; D ; " [ 
RVSON] [s V]";E;"=";I CF 

19 PRINT" [DOWN] [PURPLE] [RVSON] YOUR SCORE 
IS NOW" ;K: FORT- 135T0241:POKEU,T:NEXT DP 

20 POKEU , : F0RT-1T02 : POKEU ,241: FORTT=1TO 
200 : NEXT : POKEU , : F0RTT=1T050: NEXT: NEXT PF 

21 PRINT" [4" [ DOWN ]"][ BLACK ][ RVSON ]HIT SP 
ACE" BG 

22 IFPEEK(197)<>32THEN22 EB 

23 PP=PP+1:IFPP<10THEN29 GO 

24 POKE36869, 240: PRINT" [CLEAR] [7" "]GAME 
OVER" :PRINT"[3"[ DOWN ]"]FINAL SCORE: ";K OJ 

25 PRINT"[4"[D0WN]"]Y0U HAVE COMPLETED T 
EN PROBLEMS WITHOUT GUMS GETTING YOU!" JA 

26 PRINT" [3" [ DOWN ]"]HIT [ RVSON ]F1[RVS0FF 

] TO PLAY [10" "] AGAIN." PH 

27 IFPEEK(197)<>39THEN27 BN 

28 RUN95 PL 

29 PRINT"[CLEAR]":P0KE36869,255 CA 

30 A=8131:B S 30720:C=7680:V=36878:P0KEV,1 
5:U=36876:P0KEV+1,238:X=1 NL 

31 F0RT=1T0125:S=INT(RND(1)*396)+7702:P0 
KES,5:P0KES+B,0:NEXT:H=7679 ML 

33 IFX=1THEN2 KD 

34 P0KEC+B,0:P0KEC+1+B,0:P0KEC,3:P0KEC+1 
,4:IFA=C0RA=C+1THEN55 HE 

35 WAIT653, 1 , 1 :IFC>8160THENP0KEC,32:P0KE 
Of 1, 32:0=7680 AM 

36 P0KEA,32:F=PEEK(197):IFFO23ANDF<>31T 
HENA=A-22:G=0 AD 

37 IFF-31THENA=A-1:G«2 BC 

UO AHOY! 



■38 IFF=23ANDA<8163THENA=A+1:G=1 FL 

•39 IFPEEK(A)=5THEN14 01 

•40 P0KEA+B,2:P0KEA,G:P0KEC,32:P0KEC+1,32 

:C=C+l:IFPEEK(C+l)=5THENC=C+22 I A 

•41 IFA<HTHEN8 KK 

•42 G0T033 PG 



•55 L=15 

■56 FORT=200T0135STEP-1:POKEU+1 ,T:NEXT:PO 
KEU+1 , 135 :FORT=1T050: NEXT: POKEU+1 ,0 



GD 



CL 
KA 



•57 L=L-1:P0KEV,L:IFL>5THEN56 

•58 FORT= 1T01 500: NEXT :F0KEU-2, 135: FORT-IT 

01000 : NEXT :POKEU-2,0 AL 

•60 P0KE36869, 240: PRINT" [CLEAR] GUMS GOT Y 

A!":PRINT"[4"[D0WN]"]BUT DON'T WORRY, YOU 

[3" "]WERE DELICOUS! !" BI 

•61 PRINT" [ 4" [ DOWN ]"]HIT[ RIGHT ][ RVSON ]F1[ 

RVSOFF] TO PLAY AGAIN" EO 

•62 IFPEEK(197)<>39THEN62 BC 

•63 RUN29 PO 

• 70 P0KE36869 , 240 : IFQ>ITHENPRINT" [CLEAR ] Y 
OU ATE TOO MUCH!" ID 

•71 IFQ<ITHENPRINT"[ CLEAR] YOU DIDN'T EAT 
ENOUGH ! " ED 

•72 FORT=24 1T0 1 3 5STEP-1: POKEU, T: NEXT: POKE 
U,0:F0RTT=1T0100:NEXT: POKEU, 140: F0RT=1T0 
1000 J J 

•73 NEXT:POKEU,0: PRINT" [DOWN] [DOW ]";D;"[ 
s V]";E;"=";I;:PRINT"[DOWN][DOWN]YOU ATE 
";Q AH 

•74 K=K-1: PRINT" [DOWN] [DOWN] YOUR SCORE IS 
N0W";K:G0T021 OF 

•90 P0KE52,28:P0KE56,28:CLR:F0RI=7168T076 
79:P0KEI,PEEK(I+25600):NEXT NL 

•91 RESTORE :F0RT=1T020:READF: NEXT :F0RG=71 
68T07221 : READF : POKEG , F : NEXT AO 

•92 DATA135, 145, 155, 145, 155, 165, 155, 165,1 
75,185,185,195,165,165,165,195,195,165,1 
65,215 MK 

■93 DATA24, 40, 122, 114, 60, 24, 24, 60, 0,12, 15 
8,253,247,144,12,0,0,48,121,191,239,9,48 
,0 EH 

•94 DATA14,7,U3, 223, 255, 255, 223, 143,0,0, 
192,160,240,184,128,240,0,0,0,0,4,28,60, 
28,0,0,0 II 

■95 DATAO.0,0 HD 

• 100 P0KE36879 , 8 : PRINT" [ CLEAR ] [ CYAN ] [ 3" [ c 

+]"][SS][3"[c +]"][SS][3"[c +]"][SS][c 
+][SS][c +]":PRINT"[c +] [4"[SS]"] [c +][S 
S][SS][c +][3"[SS]"][c +][SS][c +]":PRIN 
T"[c +][c +][3"[SS]"][c +][SS][SS][3"[c 
+]"][SS][3"[c +]"]" CG 

•101 PRINT"[c +][4"[SS]"][c +][4"[SS]"][c 

+][SS][c +][SS][c +]":PRINT"[c +][3"[SS 
]"][3"[c +]"][SS][3"[c +]"][SS][c +][SS] 
[c +]":PRINT:PRINT"[3" "][c +][3"[SS]"][ 
c +][SS][3"[c +]"][SS][3"[c +]"][SS][c + 



j[SS][c + ]" GA 

•102 PRINT"[3" »][c +][c +][SS][c +][c +] 
[SS][c +][SS][c +][SS][SS][c +][SS][SS][ 
c +][SS][c +]":PRINT"[3"[SS]"][c +][SS][ 
c +][SS][c +][SS][3"[c +]"][SSl[SS][c +] 
[SS][SS][3"[c +]"]":PRINT"[3" "][c +][3" 
[SS]"][c +][SS][c +][SS][c +][SS][SS][c 
+][SS][SS][c +] 

[c + ]" BO 

•103 PRINT"[3" "][c +][3"[SS]"][c +][SS][ 

c +][SS][c +][SS][SS][c +][SS][SS][c +][ 

SS][c +]": PRINT" [DOWN] [DOWN] [YELLOW] [3" 

"]BY KEVIN DEWEY." PI 

•104 PRINT" [DOWN] [DOWN] [5" "]HIT ANY KEY" 

;:POKE198,0 BH 

•105 PRINT" [BLACK ]" :P0KE36878 t 15 AE 
•106 RESTORE: F0RT=1T020:READU:P0KE36876,U 

: FORTT-IT0100 : NEXT : P0KE36876 , NI 
•107 GETA$:IFA$<>""THEN29 PE 

■108 NEXT IA 

•109 GOTO 106 CL 

FASTNEW 

FROM PACE 33 

10 REM CD 

11 REM FAST NEW LK 

12 REM DON LEWIS V010585 (REV V 123184) JN 

14 REM CD 

15 GOTO 1000 FC 

16 : DI 

19 REM DOWNLOAD CODE INTO 1541 BJ 

20 RESTORE: PRINT CHR$(151) PO 
30 FOR 1=0 TO 102: READ A: POKE 820+1, A JP 
35 IF <I/10)-INT(I/10)=0 THEN PRINT "[c 
P]"; LM 
40 NEXT I MN 
50 FOR 1=0 TO 511: READ A: POKE 1+9472, A PE 
55 IF (I/18)-INT(I/18)=0 THEN PRINT "[c 

P]"S MM 

60 NEXT I: PRINT CHR$ ( 30) ;: RETURN CH 

99 : DI 

100 REM PROMPT AND WAIT FOR RESPONSE HJ 
105 PRINT: PRINT "INSERT DISK AND HIT "RT 

$; NN 
110 GOSUB 200: IF A$OCHR$(13) THEN GOTO 

110 BC 

120 RETURN IM 

199 : DI 

200 REM GET CHAR FROM KB, WITH PROMPT HG 
205 POKE 198,0: POKE 204,0 ■ HG 
210 GET A$:POKE 207,0: IF A$="" THEN GOTO 

210 CJ 

215 POKE 204,1: PRINT " [LEFT]"; : RETURN JF 
299 : DI 

400 REM DO A DISK JOB, THANKS "INSIDE CO 
MMODORE DOS" BY DICK EMMERS, DATAMOST JH 
410 TY=0:PRINT#15,"M~W"CHR$(8)CHR$(0)CHR 



$(2)CHR$(T)CHR$(S) KH 

•420 PRINT#15,"M-W"CHR$(1)CHR$(0)CHR$(I)C 

HR$(JB) KH 

•430 TY=TY+1 OK 

•440 PRINTS 15,"M-R"CHR$(1)CHR$(0) OD 
•450 GET#15,E$:IF E$="" THEN E$=CHR$(0) AH 
•460 E=ASC(E$) GE 

•470 IF TY-500 THEN GOTO 495 GI 

•480 IF E>127 THEN GOTO 430 AL 

•485 IF EOl THEN GOTO 495 CN 

•490 RETURN IM 

•495 PRINT :PRINT"FATAL ERROR TRY AGAIN" :S 

TOP NN 

•499 : DI 

•1000 REM ***** MAIN CODE HERE ***** IC 
•1003 Q$=CHR$(5)+"Q"+CHR$(30) CK 

•1005 POKE 53280, 11 ;POKE 53281,0: PRINT "[ 

GREEN] ,, ;:RT$=CHRS(158)+"<RETURN>"+CHR$(3 

0) PG 

•1006 TP$=CHR$(31)+"[s U][19"[s C]"][s I] 

"+CHR$(30) DF 

■1007 PN$=CHR$(31)+"[s B]"+CHR${30)+" FAS 

T NEW V01 0585 "+CHR$(31)+"[s B]"+CHR$(3 

0) EO 

•1008 TB$=CHR$(31)+"[s J][19"[s C]"][s K] 

"+CHR$(30) CO 

•1010 PRINT CHR$(147)CHR$(13) ,, [10" "]"TP$ GE 
•1011 PRINT "[10" "]"PN$ OC 

•1012 PRINT "[10" "]"TB$: PRINT KI 

•1015 IF FG=1 THEN GOTO 1035 AF 

•1020 PRINT "PLEASE WAIT.."; JI 

•1030 GOSUB 20:PRINT:FG=1 HG 

•1035 SYS 820:DN$»"NAME ME" AA 

•1040 POKE 198,0: INPUT "DISK NAME";DN$ EN 
•1050 POKE 198,0: INPUT "DISK ID";DI$ GL 
•1060 DI$=LEFT$(DI$+"ZZ'\2) CL 

•1070 I1=ASC(LEFT$(DI$,1)):I2=ASC(RIGHT$( 

DI$,1)) JM 

•1080 OPEN 15,8,15:PRINT#15,"M-W"CHR$(18) 

CHR$(0)CHR$(2)CHR$(I1)CHR$(I2);:CL0S'E15 KH 
•1090 GOSUB 100 CJ 

•2000 OPEN 15,8,15:PRINT#15,"M-E"CHR$(0)C 

HR$(5);:CL0SE15:0PEN 15,8,15 DI 

•2010 T=18:S=0:JB=176: GOSUB 400: REM SEEK EA 
•2020 JB=128: GOSUB 400: REM READ DL 
•2030 PRINTiU5,"M-W"CHR$(0)CHR$(4)CHR$(3) 

CHR$(18)CHR$(1)CHR$(65) HG 

•2040 JB=144: GOSUB 400: REM WRIT3 IK 
•2050 S=1:JB=128:REM READ BN 

•2060 PRINT#15,"M-W"CHR$(0)CHR$<4)CHR$(2) 

CHR$(0)CHR$(255) LC 

•2070 JB=144: GOSUB 400: REM WRITE IK 
•2080 CLOSE 15 AB 

•2090 OPEN 15,8,15:PRINT#15,"N0:"DN$ DN 
•2100 CLOSE 15 AB 

■3000 PRINT: PRINT :PRINT"FORMAT COMPLETE, 

REMOVE DISK" DM 

•3010 PRINT: PRINT"HIT "RT$" TO FORMAT ANO 

AHOY! Ill 



IMPORTANT I Lelterson whi,e background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
lit II Uil I Mil I ' and provide other essential inlormalion on entering Ahoy! programs. Refer to these pages before entering any programs! 



THER DISK," LH 

•3015 PRINT Q$" TO QUIT"; :G0SUB 200 PD 

•3020 IF A$=CHR$(13) THEN GOTO 1000 B0 

•3030 END IC 

•4000 DATA 169,16,133,255,169,0,133,251 CK 

•4010 DATA 169,37,133,252,169,0,133,253 PE 

■4020 DATA 169,5,133,254,165,186,32,177 EL 

•4030 DATA 255,169,111,32,147,255,165,251 EM 

•4040 DATA 164,252,141,152,3,140,153,3 HC 

•4050 DATA 160,0,185,149,3,32,168,255 HM 

•4060 DATA 200,192,6,208,245,160,0,177 PF 

■4070 DATA 251,32,168,255,200,192,32,144 BF 

•4080 DATA 246,165, 251, 105,31, 133,251 , 165 EH 

•4090 DATA 252,105,0,133,252,165,253,105 AG 

■4100 DATA 32,133,253,165,254,105,0,133 HH 

•4110 DATA 254,32,174,255,198,255,208,180 EP 

•4120 DATA 96,77,45,87,0,0,32 PK 

•4999 REM CODE DOWNLOADED INTO 1541 RAM HI 

•5000 DATA 120,173,0,28,9,12,141,0 GO 

•5010 DATA 28,169,45,133,74,32,210,6 FM 

•5020 DATA 198,74,208,249,162,0,32,217 PM 

•5030 DATA 6,169,1,133,34,165,34,201 GG 

•5040 DATA 36,240,12,32,70,5,48,7 MM 

■5050 DATA 230,34,32,200,6,240,238,173 HN 

•5060 DATA 0,28,41,243,141,0,28,169 ED 

•5070 DATA 236,141,12,28,165,75,240,5 LB 

•5080 DATA 41,127,76,200,193,96,32,75 IF 

•5090 DATA 242,133,67,138,10,10,10,10 PO 

•5100 DATA 10,133,68,173,0,28,41,159 EO 

•5110 DATA 5,68,141,0,28,169,238,141 GN 

•5120 DATA 12,28,160,0,132,77,165,57 GJ 

•5130 DATA 153,0,3,200,200,165,77,153 OD 

•5140 DATA 0,3,200,165,34,153,0,3 EM 

•5150 DATA 200,165,19,153,0,3,200,165 FG 

•5160 DATA 18,153,0,3,200,169,15,153 GP 

•5170 DATA 0,3,200,153,0,3,200,185 ID 

•5180 DATA 250,2,89,251,2,89,252,2 EO 

•5190 DATA 89,253,2,153,249,2,230,77 KN 

•5200 DATA 165,77,197,67,144,192,152,72 GB 

•5210 DATA 169,3,133,49,32,48,254,104 II 

•5220 DATA 168,136,32,229,253,32,245,253 PM 

•5230 DATA 169,1,162,0,157,0,4,232 HG 

•5240 DATA 208,250,169,4,133,49,32,233 DK 

=5250 DATA 245,133,58,32,143,247,169,206 HM 

•5260 DATA 141,12,28,169,255,141,1,28 KM 

•5270 DATA 141,3,28,32,243,6,169,0 OD 

•5280 DATA 133,50,169,255,141,1,28,162 AM 

•5290 DATA 5,80,254,184,202,208,250.162 BG 

•5300 DATA 10,164,50,80,254,184,185,0 ED 

•5310 DATA 3,141,1,28,200,202,208,243 NN 

•5320 DATA 162,9,80,254,184,169,85,141 ML 

•5330 DATA 1,28,202,208,245,162,5,169 KA 

•5340 DATA 255,80,254,184,141,1,28,202 NH 
• 5350 DATA 208 , 247 , 162 , 187 , 80 , 254 , 184 , 189 PI 

•5360 DATA 0,1,141,1,28,232,208,244 GG 

•5370 DATA 160,0,80,254,184,177,48,141 PG 
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5380 DATA 1,28,200,208,245,169,85,162 HI 

5390 DATA 8,80,254,184,141,1,28,202 JK 

5400 DATA 208,247,165,50,24,105,10,133 NP 

5410 DATA 50,198,77,208,149,80,254,184 IE 

5420 DATA 80,254,184,32,0,254,169,0 PB 

5430 DATA 133,48,169,3,133,49,165,67 LJ 

5440 DATA 133,77,32,176,6,162,10,80 ML 

5450 DATA 254,184,173,1,28,209,48,208 DB 

5460 DATA 14,200,202,208,242,24,165,48 II 

5470 DATA 105,10,133,48,76,132,6,169 BF 

5480 DATA 244,133,75,96,32,176,6,160 OA 

5490 DATA 187,80,254,184,173,1,28,217 JI 

5500 DATA 0,1,208,235,200,208,242,162 AE 

5510 DATA 252,80,254,184,173,1,28,217 CD 

5520 DATA 0,4,208,219,200,202,208,241 ML 

5530 DATA 198,77,208,182,169,0,240,209 ML 

5540 DATA 169,208,141,5,24,169,161,44 MN 

5550 DATA 5,24,16,197,44,0,28,48 FL 

5560 DATA 246,173,1,28,184,160,0,96 HK 

5570 DATA 32,203,6,174,0,28,232,76 LH 

5580 DATA 217,6,32,213,6,174,0,28 EL 

5590 DATA 202,138,41,3,133,68,173,0 BP 

5600 DATA 28,41,252,5,68,141,0,28 EL 

5610 DATA 160,8,162,0,202,208,253,136 01 

5620 DATA 208,250,96,169,85,141,1,28 CK 

5630 DATA 160,32,208,240,234,234,234,234 PK 

60000 CL0SE15:0PEN 15,8, 15;INPUT#15, A$,B 

$ | L$ j U$ LK 

60001 PRINT A$ ,I [SS]"B$"[SS]"C$"[SS]"D$:C 
L0SE15:STOP LM 
61000 CL0SE15:0PEN 15,8, 15, "10: ": SAVE "@ 
0:FASTNEW.BAS",8:CL0SE 15: STOP KL 

62000 CLOSE 15: OPEN 15,8,15:PRINT#15,"M- 
R"CHR${ 18)CHR$(0) :GET#15 , 11$ DP 

62001 PRINTS 15 , "M-R"CHR$( 19)CHR$(0) : GET# 
15,12$ EO 

62002 PRINT I1$I2$ NF 
62004 CLOSE 15: STOP NG 

INVECTIVE 

FROM PAGE 15 



•10 REM PROGRAM: INVECTIVE 
•20 REM GEORGE TREPAL 
•30 REM 2650 ALTURAS RD 
•40 REM BARTOW, FL 33830 
•50 : 
•100 GOSUB 1150 



JC 
BM 
PO 
AG 
DI 
FK 



•110 POKE53280,12:POKE53281,12:PRINT"[CLE 
AR] M ; KE 

•120 REM SET UP SCREEN AL 

•130 G$(l)=" [BLACK] [c B] [YELLOW] [6" [s Z 
]"][3" "][6"[s Z]"][4" "][6"[s Z]"][3" " 
][6"[s Z]"] [BLACK][c B] KN 

■140 G$(2)="[BLACK][c B] [BLUE][c +][4" 
"He +][3" "][c +][4" "][c + ][4" "][c +] 



[4" "][c +][3" "][c + ][4" "][c +] [BLAC 

K][c B]" LC 

•150 G$(3)="[ BLACK] [40" [c B]"]" IB 
•160 G$(4)="[ BLACK] [c B][4" "] [YELLOW] [s 

Z][8" "][s Z][10" "][s Z][8" "][s Z][4" 

"][BLACK][c B|" LE 

•170 PRINT G$(3); G$(4); G$(2); G$(2); G$ 

(1); G$(2); G$(2); G$(4); BF 

•180 PRINT G$(4); G$(4); G$(2); G$(2); G$ 

(1); G$(2); G$(2); G$(4); DC 

•190 PRINT G$(4); G$(4); G$(2); G$(2); G$ 

(1); G$(4); G$(4); G$(3); CF 

•200 : DI 

•210 REM POKE GREEN POINTS EG 

•220 CM=54272: REM CM=C0L0R MEMORY KB 
•230 FOR J=l TO 50 DM 

•240 RN = INT(RND(1)*920)+1024 PB 

■250 IF PEEK(RN)<>32 THEN 240 LB 

•260 POKE RN.105: POKE RN+CM.13 KG 
•270 NEXT I A 

•280 : DI 

•290 REM SET JOYSTICK VALUES J() AND SCRA 

MBLE ARRAY VALUES SA() FI 

•300 J(I)=-40: J(2)=40: J(4)=-l: J(8)=l CO 
•310 SA(I)-1: SA(2)=2: SA(3)=4: SA(4)=8 CA 
•320 : DI 

•330 REM SET UP PLAYER SP=SPACES OVER D 

N$=H0W FAR DOWN P=P0SITI0N CI 

•340 REM BM$=BOTTOM OF SCREEN TI$=TIMER NF 
•350 PRINT"[HOME][ DOWN] [WHITE] [ RIGHT] [s Q 

]" PL 

•360 SP=1: DN$="[ WHITE] [HOME] [DOWN]": P=l 

065: TI$="[5"0"]1" IL 

•370 BM$="[ HOME] [24" [DOWN]"]": GOSUB 750: 

GOSUB 1000 MM 

•380 : DI 

•390 REM READ PORT 2 JOYSTICK PA 

•400 JV=PEEK( 56320) GA 

•410 JV=15-(JVAND15) GJI 

•420 PRINTBM$;"[ WHITE ] SCORE ";SC; EL 
•430 VT=VAL(TI$): IF VT/15=INT(VT/15)THEN 

GOSUB 680 10 

•440 IF JV=0 THEN 400 LA 

•450 : DI 

•460 REM FIND CHARACTER MOVED TO MB 
•470 T=P+J(JV) f.D 

•480 CH=(PEEK(T)) AB 

•490 IF CH=32 THEN GOSUB 570: GOTO 400: 

REM BLANK SPACE CF 

•500 IF CH=105 THEN SC=SC+10: GOSUB 570: 
GOSUB 1000: GOTO 400: REM GREEN SCORE JH 
■510 REM BLUE JOYSTICK SCRAMBLE PM 
•520 IF CH=102 THEN GOSUB 570: GOSUB 680: 

SC=SC-20: G0T0400 EL 

•530 IF CH=90 THEN SC=SC-50: GOSUB 570: G 

OSUB 950: GOTO 400: REM YELLOW SCORE DP 

■540 GOT0400 CA 

•550 : DI 



•560 REM WIPE OUT PLAYER POSITION 

•570 PRINT DN$; SPC(SP)" "; 

•580 : 

•590 REM PRINT NEW PLAYER POSITION 

•600 P=T 

•610 IF J(JV)=1 THEN SP=SP+1 

•620 IF J(JV)=-1 THEN SP=SP-1 



NI 
LL 
DI 
OD 
FB 
MB 
FB 



•630 IF J(JV)=40 THEN DN$=DN$ + "[DOWN]" AK 
•640 IF J(JV)=-40 THEN DN$=LEFT$(DN$,LEN( 

DN$)-1) LE 

•650 PRINT DN$; SPC(SP)"[s Q]";: RETURN ID 

•660 : DI 

•670 REM SCRAMBLE JOYSTICK LB 

•680 IF VT>130 THEN 1050 ED 

•690 FOR J=l TO 4: RN=INT(RND(1)*4)+1 GG 
•700 T=SA(J): SA(J)=SA(RN): SA(RN)=T: NEX 

T GH 
•710 J(SA(1))-1: J(SA<2))~1: J(SA(3))=40 

: J(SA(4))=-40 FF 

■720 GOSUB 900 EB 

•730 : DI 

•740 REM POSITION HINTS LH 

•750 PRINT BM$;SPC(13)"[c 2]"; A J 

•760 FOR J=l TO 8 AL 

•770 IF J=l THEN PRINT "UP "; LN 

•780 IF J=2 THEN PRINT "DN "; JD 

•790 IF J=4 THEN PRINT "LT "; LL 

-800 IF J=8 THEN PRINT "RT "; KF 

•810 IF J(J)=1 THEN PRINT "> "; PG 

•820 IF J(J)=-1 THEN PRINT "< "j FN 

•830 IF J(J)=40 THEN PRINT "V[3" "]"; DP 
■840 IF J(J)=-40 THEN PRINT "[UPARROW] " 

; PF 

-850 NEXT IA 
•860 POKE 53280,2: POKE 53281,2: FOR DL= 

1 TO 80: NEXT EG 

•870 POKE 53280,12: POKE 53281,12 NO 

•880 : DI 

•890 REM SCRAMBLE SOUND KE 
■900 POKE 54296,15; POKE 54276,17: POKE 5 

4277,15: POKE 54273,60 HP 

•910 FOR DL=1 TO 25: NEXT BG 

•920 POKE 54296,0: POKE 54276,0: RETURN EB 

•930 : DI 

■940 REM YELLOW HIT KD 
•950 POKE 54296,15: POKE 54276,33: POKE 5 

4277,15: POKE 54273,40 KL 

•960 FOR DL=1 TO 25: NEXT BG 

•970 POKE 54296,0: POKE 54276,0: RETURN EB 

•980 : DI 

•990 REM GREEN SOUND LN 
•1000 POKE 54296,15: POKE 54276,17: POKE 

54277,15: POKE 54273,30 KA 

■1010 FOR DL=1 TO 25: NEXT BG 

•1020 POKE 54296,0: POKE 54276,0: RETURN EB 

•1030 : DI 

•1040 REM END GAME OE 
•1050 PRINT"[CLEAR][8"[D0WN]"]";SPC(15);" 
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SCORE ";SC OF 

•1060 FOR J=l TO 4: GOSUB 900: GOSUB 950: 

GOSUB 900 PI 

•1070 GOSUB 1000; NEXT DI 

•1080 PRINT"[ 4"[ DOWN]"] PRESS JOYSTICK B 

UTTON TO PLAY AGAIN" BF 

•1090 JV=PEEK( 56320) GA 

•1100 FR=JVAND16 AN 

•1110 IF PR = 16 THEN 1090 ED 

■1120 GOTO 110 DM 

•1130 : DI 

•1140 REM INTRO DH 

•1150 PRINT" [CYAN] [CLEAR] [DOWN]": POKE 532 

80,0: POKE 53281,0: CA 

•1160 PRINTSPC( 16) "INVECTIVE [DOWN]" NI 
•1170 PRINTSPC(12)"BY GEORGE TREPAL[D0WN] 

[DOWN]" DA 

•1180 PRINTSPC(ll)"[c 6]GREEN = 10 POINTS 

PH 



•1190 PRINTSPC( 10) "[DOWN] [YELLOW] YELLOW = 

-50 POINTS" IP 

•1200 PRINTSPC(2)"[D0WN][c 7] BLUE = -20 P 
OINTS AND SCRAMBLES THE" JP 

•1210 PRINTSPC(16)"J0YSTICK[D0WN]" IA 
■1220 PRINTSPC(2)"[CYAN]THE JOYSTICK IS S 
CRAM BLED EVERY 15" NN 

•1230 PRINTSPC{ 2) "SECONDS WHETHER YOU HIT 

BLUE OR NOT" CD 

•1240 PRINTSPC(5)"[D0WN]THE JOYSTICK GOES 

IN PORT #2" IB 

■1250 PRINTSPC(7)"[ DOWN] THE GAME LASTS 90 

SECONDS" AC 

•1260 PRINTSPC(5)"[D0WN]PRESS THE FIRE BU 
TTON TO PLAY" EJ 

•1270 JV=PEEK{ 56320) GA 

•1280 FR=JVAND16 AN 

•1290 IF FR - 16 THEN 1270 EH 

•1300 RETURN IM 



Call us the modern way— 

on Ahoy! *s Bulletin Board System? 

It your computer is equipped with a modem, you can call Ahoyfs Bulletin Board System any liout 
of the day, any day of trie weeK to exchange electronic matt with other Commodore users or download 

files like the following: 




Commodore 64 

'Commodore International 
1200 VVrlSOn Dll/0 
Wast Chasior. PA 1 9380 
Phone- 215-J31-3I00 

Vision BBS V8.3 
Vision Software Co. 
PD. Sox 534 
Bronx. NY 10461 
Prtone: 212-829.1536 



• Editorial calendar for 
upcoming issues 

* Excerpts from future edi- 
tions o( Scuttlebutt 



■ Corrections to programs 
and articles 

* Detailed descriptions 
of back issues 



• Program disk and 
subscription information 

* Classified 
advertising 



Set your modem for 300 baud, full duplex, no parity, 1 stop bit. 8-bit word length, and dial awayl 



System Configuration of Ahoy! Bulletin Board System: 



MSO SD-2 Duel Disk Delve 

MSO/Systeme. inc. 

10031 Monroe Street- Ste. 206 

Dallas, TX 75229 

Phone: 21 4-357-44 34 

Soperatand I 

A World of Pintle. Ltd 

2535 Unlied Lena 

Elk Grove Village, IL 60007 

Phone; 312-860-2525 



Impact Printer 
fidelity Electronics, Lid 
6900 N.W. 36th Straal 
Miami, FL 33178 
Pnone: 305-SS4-10U0 

Unl-Kool C-iao 

Uni-KooS 

amson Loop 
Gtanis Pass, OR 97528 
Pnone: 503-476-1860 



MEtey Mo Auto Modem 
USI International ' 
71 Part: Lane 
Brisbane, CA 94005 
Phone: 415-468-4900 

Electra Computer Pad 
Charioswater products. Inc. 
93 Border Street 
West Newton, MA 02165 
Phone: 617-964-6370 



Seksts SC-100 Color Monitor 

Sakata UI'S.A. Corporation 
651 Bonnie Lane 
El* Grove Village. IL 60007 
Phono: 312-693^1211 

Computer Stands CS933 * »0640 
Royal Seating Corporation 
PO. BOK7S3 
Cameron. TX 76520 
Pnone: 817-697-6421 



CALL TODAY: 718-383-8909 



COMING IN THE OCTOBER AHOY! (ON SALE SEPTEMBER 3) 



ALIVE AND IN 
LIVING COLOR 

TURN YOUR C-64 SPRITES 

INTO FULL COLOR 
ANIMATED CHARACTERS 



INFINITESIMAL 



COMPUTER EXPLORATIONS 

OF SUB-MICROSCOPIC 

ACTIVITY 



BIT BY BIT 

PERFORMING SINGLE BIT 

MANIPULATIONS ON 

BINARY NUMBERS 
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DON'T MISS THE BOAT! 




SUBSCRIBE 
TO AHOY! 

D Sendmetwetveissuesof'AHOY!for$19.95 
($26,95 Canada & elsewhere). I unders- 
tand that I will be billed later. 

□ Send me twenty-four issues of AHOY! for 
$37.95 ($49. 95 Canada & elsewhere). I 
understand that I will be billed later. 

NAME 

ADDRESS 

CITY 

STATE ZIP 



READER SERVICE CARD 

To request additional information on an) product advertised or otherwise pictured in tlri.s issue ot Ahoy! 

that is accompanied li.v u reader service number, circle the corresponding number below and mail Ibis 

card. We will promptly forward your request lo Ihe designated companies. 

101 101 103 104 HI? 106 107 EOS 109 110 111 112 II] II -I IJJ 116 117 IIS 119 120 121 122 123 124 125 12* 127 128 129 130 

131 131 133 134 135 tJ6 137 138 139 140 141 142 143 144 145 [46 14? 148 149 150 151 152 153 154 155 15* 157 158 159 160 

161 162 163 164 165 166 1*7 168 169 170 171 172 173 174 175 176 177 I7H 179 180 181 182 183 184 IM 186 187 188 189 190 

191 192 193 194 195 196 197 [98 199 200 201 202 203 104 205 206 207 208 209 210 211 212 213 214 215 216 217 118 219 210 

HI 211 213 214 215 216 217 218 219 220 221 122 12J 224 225 226 227 228 229 230 231 232 233 234 135 lit 237 138 139 140 

241 241 243 244 245 246 247 248 149 ISO 251 252 253 154 255 256 257 258 259 260 261 262 263 264 265 266 247 2*8 269 270 

271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 28* 287 288 289 290 291 292 193 194 195 19* 197 198 199 300 
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Introducing EasyPlex? The new, 
easy-to-use electronic mail system 
from CompuServe. 



I'uially! Electronic Mail Hint's so easy In 
use you can start composing and sending 
messages the first time you get online. 

Designed for various experience levels, 
EasyPlex has a menu mode with simple, 
easy-to-follow directions (or beginners, 
and it lets experienced users save time by 
working in the prompt or command modes. 
With EasyPlex, you can compose, edit send, 
file, and take advantage of sophisticated 



options previously available only with more 
expensive services. 

CompuServe's EasyPlex lets friends and 
relatives, associations and club members 
communicate any time of the day or night. 
And small business owners, real estate 
professionals, insurance agents, lawyers, 
writers, etc. can communicate quickly and 
simply— either interoffice or interstate 
"It's Easy." "Just Plexit!" 

Best of all, EasyPlex is available to all 
CompuServe subscribers. And. along with 
EasyPlex, you get hundreds of valuable and 
entertaining computing options. Plus the 
assurance of twlonging to the largest fastest 



growing computer information service in 
the world and the premier supplier of 
business information to FORTUNE 500 
companies. 

Start communicating! To buy a 
CompuServe Subscription Kit see your 
nearest computer dealer. To receive our 
informative brochure or to order direct 
call or write: 

CompuServe* 

Infomialion Services, RO. Box 20212 

5000 Arlington Cenlro Blvd., Columbus. Ohio 43220 

800-848-8199 

In Ohio, call 614-457-0802 
AnHKR Block Comoanv 
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